Hola , te doy un ejemplo en VB6; en este ejemplo primero abre un formulario en blanco y agrega un combobox y un botón y luego agrega este codigo:
Private Sub Command1_Click()
Dim suma As Double
Dim i As Integer
For i = 0 To Combo1.ListCount - 1
suma = suma + Combo1.List(i)
Next
If suma > 0 Then MsgBox "la suma de los elementos del combobox es: " & suma
End Sub
Private Sub Form_Load()
Combo1.AddItem 1
Combo1.AddItem 2
Combo1.AddItem 3
Combo1.AddItem 4
Combo1.AddItem 5
End Sub
Creo que lo que a ti te serviría es lo que está en negrita.
Nos cuentas como te fué.