How to add TextChanging Event to ActiveX Combobox?

[AlexExcel2021]

I have add Combobox to page.

Dim Combo As ComboBox
Set Combo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, Left:=50, Top:=80, Width:=100, Height:=15).Object

And I need to add TextChanging events to this Combobox, but how to do this?

 

[DanteAmor]

In a Module, use this to create combobox:

Sub createcombo()
  Dim Combo As ComboBox
  Dim TheComboName As String
  
  TheComboName = "MyCombo"
  On Error Resume Next
    ActiveSheet.OLEObjects(TheComboName).Delete
  On Error GoTo 0
  
  Set Combo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
    Link:=False, DisplayAsIcon:=False, Left:=50, Top:=80, Width:=100, Height:=15).Object
  Combo.Name = "Mycombo"
End Sub

In the sheet event:

Private Sub Mycombo_Change()
  MsgBox "TextChanging"
  'do some
End Sub

SHEET EVENT
Right click the tab of the sheet you want this to work, select view code and paste the code into the window that opens up.