Here's a taster. Name all your Buttons - Button1, Button2, Button3 etc.
Add a click event for each button as shown here.
For a = 1 To [U][I]number of buttons[/I][/U]
AddEvent("Button" & a,Click, "Btn_Click")
Next a
Your single Button click sub is as below.
Sub Btn_Click
a=Sender.text
End Sub
variable 'a' now holds the 'text' of the button that was clicked.
By using the 'Control' keyword you can access other properties from
the Button eg:
x=10
Control("Button" & x).Text="Hi"
This would alter the text of Button10 to 'Hi'
Hope I've made sense here ;-)