I created menu:
Private Sub CreateMenu()
Dim MenuCb As CommandBar: Dim MenuCbc As CommandBarControl: Dim MenuCmcp As CommandBarControl
'Main Menu Bar
Set MenuCb = Application.CommandBars.Add("MyMenu", msoBarTop, True, False)
'Menu of Main Menu Bar
Set MenuCbc =...