nochmal dynamische Buttons

Private Sub CommandButton1_Click()
Dim objOLEObject As OLEObject
Dim meineToggles As New Collection
For i = 1 To 5
Set objOLEObject = ActiveSheet.OLEObjects.Add(ClassType:="Forms.toggleButton.1", _
Left:=a + 100, Top:=100, Width:=22, Height:=20)
objOLEObject.Object.Caption = "F" & i
a = a + 25
meineToggles.Add objOLEObject
Next i
End Sub

auch ein Klick Ereignis schon vordefinieren? wie z.b.:

Private Sub meineToggles_Click()
'Programmcode
End Sub

Ich hoffe, ihr wisst was ich meine. Vielen Dank im vorraus
Gruß Silvio