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"
If Text1.Text<>"" Then
  Print #F, Text1.Text
End If
If Text2.Text<>"" Then
  Print #F, Text2.text
End If
  Print #F, "irgendwas schreiben"
  Print #F, "irgendwas schreiben"
If Text3.Text<>"" Then
  Print #F, Text3.text
End If
  Print #F, "irgendwas schreiben"
 
  Close #F
 
 
End Sub

EALA FREYA FRESENA