Excluindo partes do nome de um arquivo

Quem me conhece, sabe que sou fã do mp3 e gosto de ter meus arquivos organizados.

Às vezes ao baixar algum arquivo, me deparo com nomes dos arquivos acrescidos do nome do site de onde 
estou baixando ou mesmo o nome de quem "ripou" o CD.

Por exemplo:

ABBA - When I Kissed The Teacher [NomeDeQuemRipou].mp3

Para excluir esse "[NomeDeQuemRipou]" resolvi criar um código muito simples, mas que ajuda bastante.

Cansei de fazer um por um ... :-)



Segue o código:



Option Compare Database
Option Explicit

Public Sub RenomeiaArquivos()

    Dim caminho As String
    Dim origem As String
    Dim destino As String
    Dim eliminar As String
    Dim arquivo As String
    
    caminho = "C:\Documents and Settings\Kazu\Meus documentos\Downloads\Bee Gees\"
    eliminar = "[NomeDeQuemRipou]"
    
    arquivo = Dir(caminho & "*.mp3")
    
    Do Until arquivo = ""
        DoEvents
        origem = arquivo
        arquivo = Replace(arquivo, eliminar, "")
        FileCopy caminho & origem, caminho & arquivo
        Kill caminho & origem
        arquivo = Dir
    Loop
    
    MsgBox "OK", vbOKOnly
    Exit Sub
    
    
End Sub