You can save yourself a lot of time and code by using an array of option buttons instead of check boxes...
Private Sub Option1_Click(Index As Integer)
Text1.Text = Option1(Index).Caption
End Sub
and that is all the code you need...
Good Luck
Reputation Points: 156
Solved Threads: 296
Posting Virtuoso
Offline 1,670 posts
since Mar 2009