Private Sub cmdSpeichern_Click() 
Dim sFile As String
Dim sPath As String
sPath = App.Path
If Right(sPath,1) <> "\" Then sPath = sPath & "\"
sFile = txtAblage.Text
Open sPath & sFile & ".txt" For Output As #1
Close #1
End Sub