Программное определение событий для элементов управления (из Access в Excel)

Dim opt As Object
Set opt = .OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
                                     Link:=False, _
                                     DisplayAsIcon:=False, _
                                     Left:=20, _
                                     Top:=pixels + 12, _
                                     Width:=70, _
                                     Height:=30)

Private Sub OptionButton1_Click()
    ' А внутри код, который должен исполняться    
End Sub

Option Compare Database
Option Explicit
 
Function AddControl()
    Dim oXL As Excel.Application
    Dim oWB As Excel.Workbook
    Dim oWS As Excel.Worksheet
    Dim s As String
    
    Set oXL = New Excel.Application
    oXL.Visible = True
    Set oWB = oXL.Workbooks.Add
    Set oWS = oWB.Worksheets(1)
    With oWS.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
        DisplayAsIcon:=False, Left:=20.25, Top:=6.75, Width:=108, Height:=21)
    End With
    
    s = "Private Sub OptionButton1_Click()" & vbCrLf & vbCrLf & "End Sub"
    With oWB.VBProject.VBComponents(oWS.Name).CodeModule
        .InsertLines .CountOfLines + 1, s
    End With
    
    Set oWS = Nothing
    Set oWB = Nothing
End Function