Ciao....la proprietà SelectedIndeces della classe ListBox fa proprio al caso tuo:

codice:
Dim i As Integer
Dim sel As ListBox.SelectedIndexCollection = Me.MyListBox.SelectedIndices
For i = 0 To sel.Count - 1
    ' scorri i vari indici selezionati con sel(i)
Next