Sub Speichern()
Dim Dateiname As String
Dim KompletteAusgabe As String
    'KompletteAusgabe = txtusername.Text & Tab(15) & "-" & " " & 
    ' txtSpeicher.Text
    Dateiname = App.Path & "\" & "Namen.txt"
    Open Dateiname For Append As #1
    Print #1, txtusername.Text; Tab(15); "- "; txtSpeicher.Text
    Close #1
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)