Private Sub Command1_Click()
    Dim F As Integer
    F = FreeFile
    Dim strpfad As String
    strpfad = App.Path
    If Right(strpfad, 1) <> "\" Then strpfad = strpfad & "\"
    Open strpfad & "Dateien\Einstellungen\test.txt" For Output As #F
    Print #F, Text1.Text
    Print #F, Text2.Text
End Sub