[VB6] TextBox e file

[Sim1]

Ciao

Ho due textbox con nomi differenti TextBox1 e TextBox2. Devo salvare il contenuto delle due textbox nello stesso file.
Poi, dal file, devo caricare il contenuto della prima riga in una variabile a e il contenuto della seconda riga in un'altra variabile b.

Sono riuscito a fare tutto ciò con una textbox sola, ma non riesco a farlo con due. Ora vi scrivo il codice che ho usato per una sola textbox:

Ho dichiarato a come variabile pubblica

' SALVA IL CONTENUTO DELLA TEXT BOX IN UN FILE
Private Sub Text1_Change()

Open "Percorso.txt" For Output As #1
    If Text1.Text <> "" Then
    
        Print #1, Text1.Text
        a = Text1.Text
       
    End If
        
Close #1
End Sub

'CARICA LA RIGA DAL FILE txt NELLA VARIABILE a
    Open "Percorso.txt" For Input As #1

    Do Until EOF(1) 'finchè non è alla fine del file
       Line Input #1, a 'carica il contenuto nella variabile a
    Loop

Close #1
If a <> "" Then
    Text1.Text = a 'VISUALIZZA LA RIGA CORRENTE NELLA TEXTBOX
End If

[tossam]

prova così:
dim testo as textbox
Public Sub Savetxt(path As String, stringa As TextBox)
Dim myrecord As String * 1
a = Len(stringa.Text)
Open path For Binary As #1
For i = 1 To a
stringa.SelStart = N
N = N + 1
stringa.SelLength = 1
myrecord = stringa.SelText
Put #1, N, myrecord
Next i
Close #1
End Sub
Private sub command1_click()
testo.text = text1.text & text2.text
Savetxt "C:\tuopercorso.txt", testo
end sub

ciao!!!