Como relizar sumas con check box

[jose58]

buenas tardes alguine sabra como hacer una suma simple com check box es deicer si yo tengo dos frames y en cada uno hay tres check box y en cada uno escojo uno y al dale sumar como hago para que me muestre el resultado en una caja de texto, cada check tien un valo establecido pero no me funciona lo hice asi y me da cero o dos

Dim si As Integer
si = 7
Dim si As Integer
si1 = 10
Text1.Text = Val(Check1) + Val(Check2)

donde si es una respuesta correcta la cual posee puntaje establecido