Private Sub cmdSpeichern_Click()
Dim AppPath As String
Dim FileName As String
Dim ff As Integer
AppPath = App.PATH
If Right(AppPath, 1) <> "\" Then AppPath = AppPath & "\"
FileName = lstList.List(lstList.ListIndex)
ff = FreeFile
Open AppPath & FileName & ".txt" For Append As #ff
Print #ff,
Close #ff
End Sub