Private Sub Command1_Click()
 
Dim save As String
 
save = Text1.Text
fnr = FreeFile
speichern = App.Path & "\datei.txt"
Open speichern For Output As fnr
Print #fnr, save
Close (fnr)
MsgBox ("Es wurde " & save & " in die Datei gespeichert!"), , "Erfolgreich" & _
  "gespeichert"
End Sub