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"