Listbox has SelCount property:
Code:
Private Sub Command1_Click()
    Debug.Print "Number of selected items: " & List1.SelCount
End Sub