'программно создаём кнопку, которая будет реагировать на нажатие 
 Public WithEvents Mycmd As MSForms.CommandButton 
 Private Sub CommandButton1_Click() 
     Set Mycmd = Controls.Add("Forms.CommandButton.1") ', CommandButton2, Visible) 
     Mycmd.Name = "QQQ" 
     Mycmd.Left =  18  
     Mycmd.Top =  150  
     Mycmd.Width =  175  
     Mycmd.Height =  20  
     Mycmd.Caption = "This is fun. " & Mycmd.Name 
 End Sub 

 Private Sub UserForm_AddControl(ByVal Control As MSForms.Control) 
     Label1.Caption = "Control was Added." 
 End Sub 
 Sub Mycmd_click() 
     Unload Me 
 End Sub