Visual Basic 6 - Modificare tramite VB6 file txt

Ciao a tutti , come vedete posso con la macro sottostante aprire un file txt e leggerne il contenuto in una text1.text.

Il problema è che non riesco a , modificando il testo contenuto nella text1 , a salvare il file txt (istruzioni) col nuovo testo .

Come devo impostare il codice in un cmd per poter salvare il testo modificato ?

Grazie per l'aiuto e i consigli.

Luca

Private Sub Apri()
Text1.Text = ""
Open App.Path & "\Istruzioni.txt" For Input As #1
While Not EOF(1)
Input #1, data
Text1.Text = Text1.Text & data & vbCrLf
Wend
Close #1
End Sub

Devi fare:

open "Tuopercorso\istr.txt" for output as #1
print #1, text1.text
close #1

giusto ma se vuoi mantenere anche i dati precedenti devi fare così:

open "Tuopercorso\istr.txt" for append as #1
print #1, text1.text
close #1

cm io ti consiglio il vb.net

hmm.. cattiva opinione da esprimere in un forum di vb6.
cmq lodevole la schiettezza(esiste come parola?).

Ringrazio dei preziosi consigli in fatti ho optato così :

Private Sub Command1_Click()
On Error GoTo fine
Open App.Path & "\Istruzioni.txt" For Output As #1
Print #1, Text1.Text
Close #1
Exit Sub
fine:
Close #1
MsgBox Err.Description
End Sub