Function der finder navnet i i private sub

Hej jeg har en masse knapper fra 0 - 100.
deres caption indholder er også fra 0 - 100. og deres navn er
tal(1-100).
Nu skal jeg have programmeret det her:

Private Sub tal1_Click()
Tal (tal1.Caption)
End Sub
Private Sub tal2_Click()
Tal (tal2.Caption)
End S....

Function Tal(nummer)
MsgBox nummer
End Function


men kan det ikke laves mere dynamisk så jeg kun behøver en Private Sub til kanpperne, men samtiddig kan registre hvilken knap der er trykket?