Estoy creando botones dinámicamente en un formulario de usuario de Excel con el siguiente código:

With Me.CurrentFrame.Controls.Add("Forms.CommandButton.1")
    .Caption = "XYZ"
    .name = "AButton"
    .Font.Bold = True
    .ForeColor = &HFF&
    ... blah blah blah
End With

Me gustaría asignar una función para que se ejecute cuando se hace clic en estos botones, pero no puedo encontrar una manera sencilla de hacerlo, ya que no existe ninguna propiedad como parte del botón en sí.

¿Hay alguna manera de hacer esto usando el idioma anterior? ¿Debería abordar todo esto de una manera diferente?