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
    sFile = lstList.List(lstList.ListIndex)
    Kill App.Path & "\" & sFile & ".txt"
    lstList.RemoveItem lstList.ListIndex
    End If
End If
'In Projekte werden die Einträge der Listbox gespeichert
F = FreeFile
Open App.Path + "\Projekte.txt" For Output As #F Print #F,
Close #F
 
End Sub