Imposti una variabile stringa con il percorso del file ....
Codice:
Dim sFileName As String
Dim nFile As Long
sFileName = "C:\directory\xxx.txt"
nFile = FreeFile
Open sFileName For Output As nFile
Write #nFile, "CIAO"
Close nFile
Ciao