Filling two combox boxes with two lists

I have the code to fill comboboxes with a list and it works great.

But if you have two combo boxes i can't work with them in a granular way. is there a way to explicitly reference one combo box - fill it with a list, and then reference the next and fill it with a different list?

this code:

    If ICmdBar.Position = xtpBarListBox Then
        If (Not ICmdBar.Parent Is Nothing) And (ICmdBar.Parent.Type = xtpControlComboBox) Then

             Set ControlComboBox = ICmdBar.Parent    'return ComboBox control

             strText = ControlComboBox.Text      &nbs p;   'store current text
             ControlComboBox.Clear

             For i = 0 To cmbCommands.ListCount - 1
                ControlComboBox.AddItem cmbCommands.List(i)
             Next

             IndexCurrent = ControlComboBox.FindItem(strText)
             If (IndexCurrent > 0) Then ControlComboBox.ListIndex = IndexCurrent 'restore curretn text

        End If
    End If

references and populates the "Parent" - i need the specific control like it does for filemenu and the button - drop down. it seems as if combo box is populated differently.

TIA