Private Sub cmdLöschen_Click()
Dim antwort As Integer 
Dim sFile As String
If lstList.ListCount > 0 And lstList.ListIndex >= 0 Then
antwort = MsgBox("Soll das Projekt endgültig gelöscht werden?", 
vbYesNo + vbInformation, "Hinweis")
If antwort = vbYes Then
lstList.RemoveItem lstList.ListIndex
End If
Else
MsgBox "Alle Einträge gelöscht!", vbInformation, "Hinweis"
End If

sFile = lstList.List(lstList.ListIndex)
Kill App.Path & "\" & sFile & ".txt"
End Sub