msoControlButtonPopup "Invalid Procedure Call"

I'm trying to create a Custom (blank) CommanBarPopup of Type:=msoControlButtonPopup (would prefer msoControlSplitButtonPopup). Microsofts website hasn't helped at all. Here's what I've got so far.

Sub Create_MyBar()
Dim Bar As CommandBar
Dim Pop As CommandBarPopup

Set Bar = CommandBars.Add("My Bar")
Set Pop = Bar.Controls.Add(msoControlButtonPopup)
End Sub

On the Line "Set Pop = Bar.Controls.Add(msoControlButtonPopup)" I get an "Invalid Procedure Call".

VB Code:

Set Pop = Bar.Controls.Add([U]Type:=[/U]msoControlButtonPopup)

I tried it with the "Type:=" call and it still gives me an invalid procedure call. I don't understand why I can't create this button with the following code.

VB Code:

Sub Create_MyBar()
    Dim Bar As CommandBar
    Dim Pop As CommandBarPopup
    
    Set Bar = CommandBars.Add("My Bar")
    Set Pop = Bar.Controls.Add(Type:=msoControlButtonPopup)
End Sub

VB Code:

Dim toolbar As CommandBar
    Set toolbar = CommandBars.Add
 
' Make sure it is visible
    With toolbar
        .Name = "My Bar"
        .Position = msoBarTop
        .Protection = msoBarNoCustomize
        .Visible = True
    End With
 
'Load it
Set Button = CommandBars("My Bar").Controls.Add(Type:=msoControlButtonPopup)
 
'Adjust the button if you want
    With Button
        .OnAction = "Macro1"
        .Style = msoButtonIconAndCaption
        .FaceId = 300
        .caption = "Drop Me Down"
    End With

Here's what I've got now

VB Code:

Sub Create_MyBar()
    Dim Bar As CommandBar
    Dim Button As CommandBarPopup
    
    Set Bar = CommandBars.Add("My Bar")
    Set Button = CommandBars("My Bar").Controls.Add(Type:=msoControlButtonPopup)
End Sub

The code does create the CommandBar named "My Bar", but errors out on the Set Button. It's almost like it won't allow acess to creating a msoControlButtonPopup. The buttons I know I can make are msoControlButton, msoControlEdit, msoControlPopup, msoControlDropdown, and msoControlComboBox. This is completely confusing me.