You can replace all those button click handlers by one, like this:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click
Dim index As Integer
If Integer.TryParse(CType(sender, Button).Tag.ToString, index) Then
' a number
' etc ...