Сгенерированная кодом командная кнопка в vba Userform_initialize() не отвечает

Question

У меня есть две кнопки в моей пользовательской форме, одна нарисована в режиме пользовательского объекта vba, а другая добавлена ​​со следующим кодом в sub Userform_Initialize():

Dim Obj As Object
Set Obj = UserForm1.Controls.Add("Forms.CommandButton.1", "commandbuttondone", True)
With Obj
    .Caption = "filled 1n"
    .Left = 550
    .Height = 40
    .Width = 35
    .Top = 5
    MsgBox Obj.name
End With

Первый реагирует на нажатие. Но тот, который я добавляю / создаю программно, ничего не делает.

Я пытался вызвать следующие коды после нажатия кнопки команды commandbuttondone:

1.

Private Sub commandbuttondone_Click()
    MsgBox ("test message")
End Sub

2.

Private Sub commandbuttondone()
    MsgBox ("test message")
End Sub

3.

Sub commandbuttondone_Click()
    MsgBox ("test message")
End Sub

4.

Sub commandbuttondone()
    MsgBox ("test message")
End Sub

Но никто не работает. Все они находятся в "форме / модуле", который также содержит подпрограмму userform_initialize, а также рабочую первую кнопку: OKButton_Click()

Поэтому мне было интересно, есть ли какие-либо предложения о том, почему он не отображает окно сообщения с надписью "тестовое сообщение"?