Code-generated commandbutton in vba Userform_initialize() not responsive

I've got two buttons on my Userform, one drawn in in the userform vba view-object mode, and one that is added with the following code in the 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

The first one is responsive when it is clicked. But the one I add/create programmatically, does nothing.

I've tried calling the following codes after clicking the command button 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

But none work. They are all in the "form/module that also houses the userform_initialize sub, as well as the working first button: OKButton_Click()

So I was wondering if there are any suggestions on why it does not display the message box stating "test message"?