Option Explicit

Private Sub Form_Load()
  Dim n As Long

  For n = 1 To 100
    List1.AddItem "Eintrag " & CStr(n)
  Next
End Sub

Private Sub cmdDelete_Click()
  Dim n As Long

  With List1
    Select Case .SelCount
      Case 0
        MsgBox "Es sind keine Einträge zum Löschen markiert!", _
                    vbOKOnly, Title:="VB-fun-Demo"

      Case 1
        .RemoveItem .ListIndex

      Case Else
        For n = .ListCount - 1 To 0 Step -1
          If .Selected(n) = True Then
            .RemoveItem n
          End If
        Next
    End Select
  End With
End Sub