Sub CreateMenu()
 Dim HelpMenu As CommandBarControl
    Dim NewMenu As CommandBarPopup
    Dim MenuItem As CommandBarControl
    Dim Submenuitem As CommandBarButton
'   Удаление меню, если таковое существует
    Call DeleteMenu
'   Поиск меню Справка
    Set HelpMenu = CommandBars(1).FindControl(ID:=30010)
    If HelpMenu Is Nothing Then
'       Добавление меню в конец строки меню
        Set NewMenu = CommandBars(1).Controls.Add _
          (Type:=msoControlPopup, _
           temporary:=True)
    Else
'      Добавление меню перед меню Help
        Set NewMenu = CommandBars(1).Controls.Add _
          (Type:=msoControlPopup, _
           Before:=HelpMenu.Index, _
           temporary:=True)
    End If
'   Добавление подписи
    NewMenu.Caption = "&Моё меню"
'   Первый элемент меню
    Set MenuItem = NewMenu.Controls.Add _
      (Type:=msoControlButton)
    With MenuItem
        .Caption = "&Поиск данных"
        .FaceId = 173
        .OnAction = "Poisk"
    End With
End Sub