Visual Basic 6 - Scrittura file di testo

Ciao
Dovrei scrivere un file di testo con alcune righe intervallate da righe vuote.
Tipo:
Riga 1
(riga vuota)
Riga 2

Ho scrittp questo:
Text1 = "Riga 1"
Text2 = ""
Text3 = Riga2
Open MyFolder "testo.txt" For Append As #1 Append As #2 Append As #3
Print #1, Text1
Print #2, Text2
Print #3, Text3
Close #1

Ma non funziona.

Questo codice è soltanto un esempio, infatti:
1.Non l'ho provato col compilatore
2.Non funziona così perchè devi aggiustare ad esempio la Sub Button1_Click()

Quindi non fare copia-incolla perchè non ti funziona. È tanto per farti capire cosa devi fare:

Dim r1 as string
dim r2 as string
dim r as string

Private Sub Button1_Click()
r1="Riga1"
r2="Riga2"
r=r1 & vbcrlf & r2

Open "percorsofile" for append as #1
print #1,r
close #1
End Sub

prova con

Open "path" For Append As #1
Print #1, Text1.Text
Write #1,
Print #1, Text2.Text
Write #1,
Print #1, Text3.Text
Close #1