Private Sub cmd_Click()
With lstList
    If .ListIndex > -1 Then
      txtBearbeiten.Text = .List(.ListIndex)
      .Enabled = False
    End If
  End With
strPath = App.Path
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
strFileName = strPath & lstList.List(lstList.ListIndex) & ".txt"
FN = FreeFile()
End If
 
End Sub
 
cu Mike