2 Zeilige .txt datei erstellen

[sir-bam-a-lot]

Hallo liebe Leute...
Habe da mal eine kurze Frage,
ich möchte per button eine bestimmte .txt Datei erstellen (im Verzeichnis meines Programmes).
Soweit sogut klappt auch alles nur muss ich jetzt noch eine 2 zeilige erstellen...

mein Code:

Private Sub Command1_Click()
Open sPath & "test.txt" For Output As #1
Print #1, "hallo Welt";
Close #1
End Sub

Kann mir jetzt jemand den Code vllt. so abändern das eine text datei mit 2 Zeilen geschrieben wird?! z.b: hallo welt und darunter hallo höllê ^^



Mfg, bam-bam

 

[wincnc]

Hallo, versuch´s mal so:

Private Sub Command1_Click()
Dim FNr As Integer

FNr = FreeFile

Open sPath & "test.txt" For Output As #FNr
  Print #FNr, "hallo Welt"
  Print #FNr, "hallo höllê";
Close #FNr

End Sub