Help with project

[T0xificati0n]

Hey there guys!!

I'm trying to make a program just form fun, I want to use 1 command button, 1 textbox and 3 option/radio buttons.. Then 1st option/radio buttons is called "words
Starting with A", option button 2 is called "words starting with B" and the 3rd is
"Words starting with C"

Now what I want to do is, when I select option box nr2 and click the command
Button, it must put text in the textBox.. I use the following code

Private sub command1_click()
Textbox1.text = Int(Rnd) * 40)
Select case textbox1.text
Case 0
Textbox1.text = "Ball"
Case 1
Textbox1.text = "Bear"
End select
End sub

This goes on till about case 40..
Now I want to know how what code do I use so that if I click optionbox1 which is
"Words starting with A" to make the same effect as the code above but replace the words starting with B with words starting with A

This process is almost like a multi keygen? Like u select one game, click generate
And it gves a text, thenb select the second optionBox and click generate and it gives a different text..

If u can assist me with my problem. Please let me know thanks a million!!