Mit folgender Prozedur können alle selektierten Einträge einer Listbox entfernt werden. Damit auch alle Elemente entfernt werden (und ein wenig aus Performance-Gründen), erfolgt die Löschung von hinten.
Sub ListboxDelSel(ByRef lst As ListBox)
Dim i As Long
With lst
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) Then .RemoveItem i
Next i
End With
End Sub