distribuir atravez de check box

[elbano66]

wenas tengo un problema tengo un sistema de evaluacion que consiste en evaluar consta de 10 preguntas y cada pregunta tiene 3 opcion de respuestas SI NO y NO APLICA que sucede que si yo pongo si la nota se suma si coloco no pues no se suma porque no tiene valor alguno, pero si coloco no Aplica y la pregunta vale 10 ptos entonces esa nota se debe distribuir en las 10 preguntas menos en las NO, le e dado vueltas pero no se hasta el momento tengo este codigo que suma los si y los no aplica pero con su valor completa y distribuye la noa como hago el codigo es

Private Sub Command5_Click()
Dim x As Integer
Dim Resultado As Long
Dim cont As Integer
Resultado = 0
cont = 0
For x = 0 To 29
If Check1(x).Value = 1 Then
Resultado = Resultado + Val(Check1(x).Tag)
Else
cont = cont + 1
End If
Next x
Text1.Text = Resultado
End Sub