no esta muy claro lo que pedis pero creo que entendi.
Private Sub Command1_Click()
Dim Azar As Byte
Azar = Int((12 - 2 + 1) * Rnd + 2) 'Aca hay que poner un rango de valores yo use de 2 a 12 (como los dados, pero puede ser cualquier cosa, (0,100), etc.)
If Azar = 7 Then
If Opc1.Value = 1 Then
'Determinar lo que pase
MsgBox "Hola"
End If
If Opc2.Value = 1 Then
'Determinar lo que pase ' tenes que copiar este if por cada check que tengas
End If
End If
End Sub
Pero si lo que queres es simplemente saber cuando un Check esta activado siemplemente usa la propiedad Value, 0 cuando esta desactivado, 1 activado y 2 para cuando se cancela el check
Bye!