Sub Example_SubMenu()
    'Этот пример находит меню используемое как подменю для 
    '"Autodesk в Сети" пункт меню в меню Help.
    
    Dim acadMenuGroup As acadMenuGroup
    Set acadMenuGroup = ThisDrawing.Application.MenuGroups.Item("ACAD")
    
    Dim helpMenu As AcadPopupMenu
    Set helpMenu = acadMenuGroup.Menus.Item("&Help")
    
    Dim WebMenuItem As AcadPopupMenuItem
    Set WebMenuItem = helpMenu.Item(5)
        
    Dim subWebMenu As AcadPopupMenu
    Set subWebMenu = WebMenuItem.subMenu
    
    MsgBox "Имя подменю " & subWebMenu.TagString
End Sub