Visual Basic 6 - Problemi con fso.Rename

Ciao a tutti
Mi sa che commetto un errore sulla scrittura del codice di fso.Rename

Set fso = CreateObject("Scripting.FileSystemObject"
'Set file = FSO.GetFile("C:\Users\fax\Desktop\Test\" & param)
Set MyFolder = fso.GetFolder("C:\Users\fax\Desktop\Test"
Set MyFile = fso.GetFile("C:\Users\fax\Desktop\Test\ciao.txt"

Do
fso.Rename MyFile, (MyFolder & "xxxxxx.txt"
Loop Until Err.Number = 0

Per rinominare un file basta che scrivi

Name tuapath As nuovapath

P.S. Potresti aver bisogno dei privilegi di amministratore.