Passing parameters to OnAction function of a CommandBarComboBox

[ilans]

I am creating a dynamic CommandBarComboBoxes on a new Word document CommandBar. My problem is catching the currect ComboBox the user clicked on. Is there a way to pass arguments to the OnAction property of the CommandBarComboBox control. Remember, it is all done dynamically.
Thanks in advance,
Ilan.

[WorkHorse]

The ActionControl property returns the control that called the sub by OnAction.

Sub AddMyCombo()
    
    Dim combo As CommandBarComboBox
    Set combo = CommandBars("Custom 1").Controls.Add(msoControlComboBox)
    With combo
        .AddItem "First Item", 1
        .AddItem "Second Item", 2
        .DropDownLines = 3
        .DropDownWidth = 75
        .ListIndex = 0
        .Tag = "MyNewCombo"
        .OnAction = "MySub"
    End With
 
End Sub
 
Sub MySub()
 
    With CommandBars.ActionControl
        MsgBox .Tag & " = " & .List(.ListIndex)
    End With
 
End Sub

[ilans]

Very helpful and to the point.