A. Using the MoveFile method on a FileSystem object will result in a file being renamed:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "file1.txt", "file2.txt"