Forse puoi prendere spunto da qui,
se il file non esiste lo crea
se il file gia esiste lo sovrascrive
Private Sub Comando0_Click()
Dim Perc As String
Dim NoFi As String
Perc = "D:\Post2\xxxxxx\"
NoFi = "ggg.txt"
'Apertura
Open Perc & NoFi For Output As #1
' Scrittuta
Write #1, "Quello che vuoi sulla 1° riga " ' 1° riga
Write #1, Me.txtcasellatesto1.Value ' 2° riga
Write #1, Me.txtcasellatesto2.Value ' 3° riga
' Chiusura
Close #1 'Chiusura File
End Sub
PS: Estratto da un articolo di "Dragone Bianco"
.