Dim sFile As String
Dim F As Integer
 
sFile = App.Path & "\Test.txt"
 
F = FreeFile
If Text1.Text = "" Then
MsgBox "Gibt nix zu speichern"
Text1.SetFocus
Exit Sub
End If
Open sFile For Append As #F
Print #F, Text1.Text
Print #F, Text2.Text
 
Close #F