CommandBar på en userform...

er der en derude der kan hjælpe mig med at laven en CommandBar på min userform.. jeg har en kodestump, der skaber en popup-menu, dog ville jeg gerne, at det var en fast menu-bar, hvorfra jeg kunne \"spille\" mine makroer

Sub CreatePopUp()
Dim cb As CommandBar
    DeletePopUp
    Set cb = CommandBars.Add(PopUpCommandBarName, msoBarPopup, False, True)
    With cb
        With .Controls.Add(Type:=msoControlButton)
          .OnAction = \"MyMacroName\"
          .Caption = \"MyMacro\"
          .TooltipText = \"Custom Tooltip Text 1\"
        End With
    Set cb = Nothing
    End With
End Sub