Menghapus data terpilih dalam listbox

Private Sub CommandButton2_Click()
'perintah untuk menghapus data Terpilih dari dalam ListBox2

Dim counter As Integer
counter = 0
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i - counter) Then
ListBox2.RemoveItem (i - counter)
counter = counter + 1
End If
Next i
End Sub