Utilizando VBA para renomear arquivos

Sabe com renomear arquivos via VBA?

Existem algumas formas de fazer isso como por ex: via Shell Automation, WMI... mais uma maneira bastante simples e direta, e totalmente VBA é usar a função Name

Ex:

Sub RenomearArquivo()
   Name "c:\arquivo.txt" as "c:\novo_arquivo.txt"
End Sub