Visual Basic - Renombrar archivos

Dim fs As New FileSystemObject

Dim temporal As Folder

Dim Archivo As File

Set temporal = fs.GetFolder("Aqui va la ruta  c:\ o lo que tu desees")

For Each Archivo In temporal.Files  ' por cada archivo de la carpeta aqui te muestro atributos luego comentas es para que veas 

                  MsgBox Archivo

                    MsgBox Archivo.Type

                    MsgBox Archivo.Name

' aqui pones el renombrar archivo es el nombre del archivo y despues del as el nombre que la vas a dar .. espero te sirva

Name Archivo As "Tu nuevo Nombre.xls"

 Next Archivo