Как создать макросом UserForm, создать на ней кнопку и привязать к ней макрос? - VBA

Формулировка задачи:

Пытаюсь сделать так:

Load MyBar1
Set B = New MyBar1
Set o = B.Controls.Add("Forms.CommandButton.1", "", True)
o.OnAction "Макрос1"

Код на последней строчке выдаёт ошибку (объект не поддерживает этот метод).

Решение задачи: «Как создать макросом UserForm, создать на ней кнопку и привязать к ней макрос?»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Dim WithEvents c As MSForms.CommandButton 'Объявляем кнопку с её событиями
 
Private Sub c_Click()
    '
    'Событие нажатия на неё
    '
    'Варианты вызова макроса
    Application.Run "Макрос1" ', Аргумент1, Аргумент2, Аргумент3, и_т_д
    'Или
    Макрос1 ', Аргумент1, Аргумент2,... '---Прямой вызов макроса
End Sub
 
Private Sub UserForm_Initialize()
    Set c = Controls.Add("Forms.CommandButton.1", "c", 1)
    With c
        .Move 10, 10, 100, 20 '-------- Скрытый метод размерности Move Left, Top, Width, Height
        .Caption = "Нажми сюда"
    End With
End Sub
                        