No sé como quieres sumarlos, pero imagino que solo tienes que hacer un bucle que recorra el listbox e ir manipulando los elementos que estén seleccionados o no, así como seleccionarlos o deseleccionarlos si quieres.
Código vb:
Ver originalFor F = 0 To List1.ListCount -1
If List1.Selected(F) = True Then
msgbox List1.List(F)
End If
Next F
Saludos