Private Sub cmdLöschen_Click()
Dim sFile As String
Dim F As String
Dim i As Integer
 
With lstList
  If .ListIndex >= 0 Then
    If MsgBox("Soll der Eintrag gelöscht werden?", vbYesNo + vbInformation, _
      "Hinweis") = vbYes Then
      sFile = .List(.ListIndex)
      Kill App.PATH & "\" & sFile & ".txt"
      .RemoveItem .ListIndex
 
        F = FreeFile
      Open App.PATH + "\Stichworte.txt" For Output As #F
      For i = 0 To .ListCount - 1
        Print #F, .List(i)
      Next i
      Close #F
    End If
  End If
End With
 
End Sub