Function GetSubmenuNames(barname As String, controlname As String)

  Dim cbarMenu As CommandBar

  Dim cbarControl As CommandBarControl

  Set cbarMenu = CommandBars(barname)

 Debug.PrintcbarMenu.Controls(controlname).Controls.Count

  For Each cbarControl In cbarMenu.Controls(controlname).Controls

   Debug.PrintcbarControl.Caption; _

       vbTab; cbarControl.Enabled; _

       vbTab; cbarControl.Type; _

       vbTab; cbarControl.Id

  Next

End Function