Ayuda con matriz check box

Hola amigos tengo mas de 40 check box en un formulario y necesito hacer esto en cada uno de ellos.
?
Private Sub Check1_Click()
If Check1.Value = 1 ThenCheck1.Caption = "SI"
ElseCheck1.Caption = "NO"
End IfEnd Sub
Como puedo hacer para que con una matriz o algo así solo lo tenga que hacer una vez ya que me quedaría extenso el código y muy engorroso,,
agradezco la colaboración