matriz checks boxs

[jose58]

buenos dias a todos tengo un problemita con una matriz check box yo realice esa matriz con le fin de realizar una suma la programacion la hice haci

Dim X As Integer
Dim Resultado As Long
Resultado = 0
For X = 0 To 29
If Check1(X).Value = 1 Then
Resultado = Resultado + Val(Check1(X).Tag)
End If
Next X
Text1.Text = Resultado

pero lo que deseo de esto es como hago para que me arroje un msgbox si no seleccino todas las casillas, yo lo hice asi


Dim X As Integer
Dim Resultado As Long
Resultado = 0
For X = 0 To 29
If Check1(X).Value = 1 Then
Resultado = Resultado + Val(Check1(X).Tag)
else
msgbox ("debe seleccionar la casilla")
End If
Next X
Text1.Text = Resultado
pero el proble es que por logica me va a arojar 30 mesng porque son 30 index como hago para que me arooje uno solo, uso frames no se si con eso se puede pero no se como