Zeile = Text1.Text & "; " & Text2.Text & "; " & Text3.Text
  Zeile = Zeile & "Irgend ein erklärender Text" & Text4.Text
  Print #F, Zeile
  ' oder du verwendest eine Schleife
  For I = 1 to Max
    Print #F, Text1.Text & I
  Next I
  ' oder eine andere Schleifenart
  Do
    Zeile = "Ausgabetext = " & Text1.Text & ", " & Wert1
    Wert1 = Wert1 + 100
    Print #F, Zeile
  Loop until Text1.Text <> ""