Comment dois-je faire référence à la case de l'objet userform avec une variable

Quelqu'un pourrait-il me dire comment faire référence à une case de l'objet userform avec une variable?

Par exemple, j'ai quelque chose comme ces derniers,

   if UserForm1.checkbox1.Value
   if UserForm1.checkbox2.Value 
   if UserForm1.checkbox3.Value

Je dois vérifier de près de 40 à 50 cases à cocher. Mais l'écriture de l'40 à 50 déclarations comme celles-ci est une perte de temps et fait une grande code.

Donc j'ai été un peu penser à parcourir en boucle:

 For i = 1 To 50 
   UserForm1.checkbox & i .Value
 Next i

Quelque chose comme ça. Je ne l'ai pas trouvé trop, mais je l'ai trouvé à la fin. C'est le lien http://www.ozgrid.com/forum/showthread.php?t=43358 et la réponse était comme ces,

UserForm1.Shapes("Checkbox" & i).Value

Mais il ne fonctionne pas. Quelqu'un connais le moyen de le faire? Est-il possible? Toute aide est grandement appréciée.