Variable definieren

Ich habe ein kleines Problem(ich hoffe es ist klein).

Ich habe 12 Buttons die alle das gleiche machen.
Jetzt wollte ich eine Variable hinterlegen,damit der Code nicht
zu lang wird.
Mein Problem ist,dass es mit der Variable (z) nicht funktioniert.Habe schon alles versucht was ich weiss,komme nicht weiter.

Button in Tabelle1:
Private Sub Knopf1_Click()
z = 1
KnopfUndLabel
End Sub

Code in Modul:

Public z

Function KnopfUndLabel()
If Tabelle1.Knopf&(z) = True Then
Tabelle1.Knopf&(z).Caption = "*"
Randomize
Tabelle1.Label&(z).Caption = Int((Rnd * (100)) + 1)
Tabelle1.Label&(z).Visible = True
End If
End Function

Gruss Roli