Private Sub SaveFile(path as string, TXT as textbox)
Dim myrecord As String * 1
a = Len(TXT)
Open path For Binary As #1
For i = 1 To a
TXT.SelStart = n
n = n + 1
TXT.SelLength = 1
myrecord = TXT.SelText
Put #1, n, myrecord ' Scrive il record nel file.
Next i
Close #1
MsgBox "Salvato!",64
End Sub

immetti poi la funzione SaveFile "c:miopercorso.txt", text1

ciao!!!