Private Sub Command1_Click()
 
Dim F As Integer
 
F = FreeFile
Open (App.Path & "\meine_lala.txt") For Output As #F
 
  Print #F, "irgendwas schreiben"
  Print #F, "irgendwas schreiben"
  Print #F, "irgendwas schreiben"
  Print #F, Text1.text'diese zeile soll weg,wenn Text1.text = "" ist, nur wie?
  Print #F, Text2.text'diese zeile soll weg,wenn Text1.text = "" ist, nur wie?
  Print #F, "irgendwas schreiben"
  Print #F, "irgendwas schreiben"
  Print #F, Text3.text'diese zeile soll weg,wenn Text1.text = "" ist, nur wie?
  Print #F, "irgendwas schreiben"
 
  Close #F
 
 
End Sub