Создание обработчика для созданной кнопки на форме

Public Sub sravnenie_vibor_Change()
Dim vibor As Integer
 
Dim lable1 As Object
Dim lable2 As Object
Dim lable3 As Object
Dim TextBox1 As Object
Dim textbox2 As Object
Dim textbox3 As Object
Dim commandbutton1 As Object
 
Dim lable3_nastr As Object
Dim combox1_nastr As Object
Dim combox2_nastr As Object
Dim otstup_nastr As Integer
 
 
If sravnenie_vibor.Value = "Ðàáîòà ñ 2 ñòîëáöàìè" Then
   vibor = 1
   Set lable1 = Me.Controls.Add("Forms.Label.1", "MyName", True)
       With lable1
          .Width = 100: .Height = 20: .Top = 60: .Left = 10: .Caption = "Äàííûå 1": .TextAlign = 2: .Font.Size = 10
       End With
   Set TextBox1 = Me.Controls.Add("Forms.TextBox.1", "MyName", True)
       With TextBox1
          .Width = 100: .Height = 250: .Top = 80: .Left = 10: .MultiLine = True
       End With
   Set lable2 = Me.Controls.Add("Forms.Label.1", "MyName", True)
       With lable2
          .Width = 100: .Height = 20: .Top = 60: .Left = 120: .Caption = "Äàííûå 2": .TextAlign = 2: .Font.Size = 10
       End With
   Set textbox2 = Me.Controls.Add("Forms.TextBox.1", "MyName", True)
       With textbox2
          .Width = 100: .Height = 250: .Top = 80: .Left = 120: .MultiLine = True
       End With
   
End If
 
   otstup_nastr = TextBox1.Width + textbox2.Width
   progr_sravnenie.Width = otstup_nastr + 150
   
   Set lable3_nastr = Me.Controls.Add("Forms.Label.1", "MyName", True)
       With lable3_nastr
          .Width = 100: .Height = 20: .Top = 60: .Left = otstup_nastr + 30: .Caption = "Íàñòðîéêà": .TextAlign = 2: .Font.Size = 10
       End With
   Set combox1_nastr = Me.Controls.Add("Forms.ComboBox.1", "MyName", True)
       With combox1_nastr
          .Width = 100: .Height = 20: .Top = 80: .Left = otstup_nastr + 30: .TextAlign = 2: .Font.Size = 8
       End With
   Set combox2_nastr = Me.Controls.Add("Forms.ComboBox.1", "MyName", True)
       With combox2_nastr
          .Width = 100: .Height = 20: .Top = 110: .Left = otstup_nastr + 30: .TextAlign = 2: .Font.Size = 8
       End With
   Set commandbutton1 = Me.Controls.Add("Forms.CommandButton.1", "Mybot", True)
       With commandbutton1
          .Width = 100: .Height = 20: .Top = 140: .Left = otstup_nastr + 30: .Caption = "Âûïîëíèòü"
       End With
          
       
  ' Select Case vibor
     ' Case 1
       '   With combox1_nastr
           '    combox1_nastr.AddItem "Áåç ó÷åòà ðåãèñòðîâ": .AddItem "C ó÷åòîì ðåãèñòðà": .AddItem "Áåç ñèìâîëîâ"
        '  End With
          'With combox2_nastr
          '     combox2_nastr.AddItem "Âûãðóçêà â 3 ñòîëáåö": .AddItem "Âûãðóçêà â îòäåëüíûé ôàéë": .AddItem "Â áóôåð"
         ' End With
      'Case 2
  'End Select
   
End Sub