Have a shortcut key to command bar

[macnab]

Dim CmdBar as CommandBar

Set CmdBar = CommandBars.Add(Name:="Roster", Position:=msoBarPopup, Temporary:=False)With CmdBar
   .Controls.Add Type:=msoControlButton
   .Controls(1).Caption = "&Clear Completely"
   .Controls(1).OnAction = "ClearCompletely"
   
   .Controls.Add Type:=msoControlButton
   ...

Is there a way to set a keypress shortcut to display the menu? Even if it has the name "Menu" at the top of the menu.