Inserisci il riferimento Microsoft scripting runtime

codice:
Dim fso
Dim inFile
dim Tua_striga as string

' creo il FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

'creo il file
fso.CreateTextFile (App.Path & "\tuo_file.txt")

' apro i file
Set inFile = fso.OpenTextFile((App.Path & "\tuo_file.txt"), ForAppending, TristateFalse)

' scrivo
inFile.WriteLine Tua_striga

'sposto il file
fso.MoveFile App.Path & "\tuo_file.txt", "a:\"

' chiudo i due file ed elimino gli oggetti
inFile.Close
Set inFile = Nothing

' elimino il FileSystemObject
Set fso = Nothing
però la prossima volta fa una rierca sul forum