Visual Basic 6 - salvare una text lasciando il testo già presente nel file txt

salve, su questo forum ci sono domande su come salvare i file .txt da un text, ma io vorrei sapere come posso aggiugere a quello che è già presente nel file quello che ho in una text, come posso fare?

Private Sub SalvaTesto_Click()
   
   On Error GoTo fine
   
Open App.Path & "\SWZone.txt" For Output As #1
Print #1, Text1.Text
Close #1
Exit Sub

fine:
    Close #1
    MsgBox Err.Description

End Sub

grazie.

devi aprire il file con l' append

Open percorsofile For Append As 1
Print #1, stringa
Close

ricorda che quello che aggiungi lo mette ala fine del file

perfetto, ti ringrazio!