Sumar Registros de un Campo tipo lista

Cuando dices sumar no sé si te refieres a contar o algo así. Si rengo un cuadro de lista ListaXX le añado un cuadro de texto Total, en el que en sus propiedades-origen del control le pongo lo que ves en la imagen

De forma que cuando lo abro

Le complemento guardando en 3 campos la información:

1- Cantidad de items

2. Total elegidos

3. Total sin elegir

Observe abro el formulario y me indica que hay 6 items, 0 elegidos y 6 sin elegir

Selecciono 4 y me muestra en el campo Elegidos la cantidad 4 y en el campo Sin Elegir 2.

Ahora, hago clic en <<Todos>> :

Me indica 6 ítemes, elegidos 6 (todos) y sin elegir 0

Al hacer clic en el botón <<Desmarcar>> obtengo items 6, elegidos 0 y sin elegir 6.

Código del formulario y botones

Private Sub btnVer_Click()
  Me.ctlCuenta = Me.lstnombres.ListCount
  Me.ctlMarcados = Me.lstnombres.ItemsSelected.Count
  Me.ctlSinElegir = Me.ctlCuenta - Me.ctlMarcados
End Sub
Private Sub btnTodos_Click()
    Dim intNumAct As Integer
    For intNumAct = 0 To Me.lstnombres.ListCount - 1
        Me.lstnombres.Selected(intNumAct) = True
    Next intNumAct
    Call btnVer_Click
End Sub
Private Sub btnDesmarcar_Click()
    Dim varPos  As Variant
    For Each varPos In lstnombres.ItemsSelected
        Me.lstnombres.Selected(varPos) = False
    Next varPos
  Call btnVer_Click
End Sub

Espero le sirva como ejemplo para manipular cuadros de lista.