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".