Eigene Menüleiste

Sub Beitrag()
Dim cb As CommandBar, cbc As CommandBarControl
Set cb = Application.CommandBars.ActiveMenuBar
Set cbc = cb.Controls.Add(Type:=msoControlPopup)
cbc.Caption = "Meine Menüleiste"
With cbc.Controls.Add
.Caption = "Bemerkungen Strg+b"
.OnAction = "Formbearbeiten"
End With
With cbc.Controls.Add
.Caption = "Kopfzeile Strg+Umsch+b"
.OnAction = "FormKopfzeilestarten"
End With
End Sub

Nun möchte ich die Shortcuts so anordenen das sie alle bündig neben dem Makro erscheinen. Geht das? Wen wie?
Danke?
Gruß
Karsten