Changing RibbonBar Captions

I am trying to change the caption of one of my submenus that expands down from a RibbonBar.

Can anyone help with the following code?

private sub SetUpRibbonBar
    Dim tabBatches As RibbonTab
    Dim RibbonBar As RibbonBar
    Dim GroupBatches As RibbonGroup
    Dim ControlRibbonButton As CommandBarPopup
   
    Set RibbonBar = CommandBars.AddRibbonBar("MainRibbon")
    Set tabBatches = RibbonBar.InsertTab(0, "Batches")
    Set GroupBatches = tabBatches.Groups.AddGroup("Batch Functions")
   
    Set ControlRibbonButton = GroupBatches.Add(xtpControlSplitButtonPopup, ID_CREATEBATCH, "Create")
        ControlRibbonButton.CommandBar.Controls.Add xtpControlButton, ID_CREATEBATCH, "Create Batch"
        ControlRibbonButton.CommandBar.Controls.Add xtpControlButton, 0, "Create Imageless Batch"
       
    GroupBatches.Add xtpControlButton, ID_CLOSEBATCH, "Close Batch"
   
    Set GroupBatches = tabBatches.Groups.AddGroup("Queues")
    Set ControlRibbonButton = GroupBatches.Add(xtpControlSplitButtonPopup, ID_QUEUES, "Queues")
        ControlRibbonButton.CommandBar.Controls.Add xtpControlButton, ID_INPRODUCTION, "In Production", -1, False
        ControlRibbonButton.CommandBar.Controls.Add xtpControlButton, ID_INBILLING, "In Billing", -1, False
       
    CommandBars.Icons = imCommandBar.Icons
   
    Set ControlRibbonButton = CommandBars.FindControl(xtpControlButton, ID_INPRODUCTION, , True)
    Debug.Print ControlRibbonButton.Caption   '<----Returns "Queues".  I want it to return "In Production"

End Sub

ID_QUEUES = 9
ID_INPRODUCTION = 12

I'm sure it's something simple but I can't seem to get it.

also replace

Dim ControlRibbonButton As CommandBarPopup

to

Dim ControlRibbonButton As CommandBarControl

Changing to Dim ControlRibbonButton as CommandBarControl worked.

My contants were fine, didn't have to change anything.

Thanks!