With lstList
  If .ListIndex >= 0 Then
    If MsgBox("Soll das Projekt endgültig gelöscht werden?", vbYesNo + _
      vbInformation, "Hinweis") = vbYes Then
      sFile = .List(.ListIndex)
      Kill App.Path & "\" & sFile & ".txt"
      .RemoveItem .ListIndex
 
      ' Projekte.txt aktualisieren
      F = FreeFile
      Open App.Path + "\Projekte.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

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de