ayuda con checkbox

[Judgement]

Saludos, creo que esto te serviria un pokito

Código:

Private Sub Command1_Click()
    Dim ctlCheck As Control
    Dim lContador As Long
    
    For Each ctlCheck In Me.Controls
        If (TypeOf ctlCheck Is CheckBox) And (ctlCheck.Value = 1) Then
            lContador = lContador + 1
        End If
    Next
    MsgBox lContador * 2
End Sub