devi utilizzare il metodo CreateTextFile, non CreateObject

codice:
Set f = fs.createtextfile("C:\windows\desktop\Nome.txt", ForWriting, True)