Public Sub Ro_AddMenuVBE()
  Dim mnuName As String, u As String
  Dim N As Integer, i As Integer, c As Integer
      u = "&Moё"
      N = Application.VBE.CommandBars.Count
      For i = 1 To N
          With Application.VBE.CommandBars.Item(i)
              If .Type = msoBarTypeMenuBar Then
                  For c = 1 To .Controls.Count
                      If .Controls.Item(c).Caption = u Then
                          .Controls(u).Delete
                          Exit For                          
                      End If
                  Next

                  With .Controls.add(Type:=msoControlPopup)
                      .Caption = u
                      With .Controls.add(Type:=msoControlButton, ID:=107)
  ' изменил на "латинское" название    .OnAction = "a_Bосстановить_Обработку_Событий"
                          .OnAction = "RestoreAlertsEvents"
                          .Caption = "Bосстановить события 2"
                          .TooltipText = "Bосстановить обработку событий"
                      End With
                      With .Controls.add(Type:=msoControlButton, ID:=107)
                          .OnAction = "a_Bыровнить_Код_Активного_Модуля"
                          .Caption = "Bыровнить код"
                          .TooltipText = "Bыровнить код активного модуля"
                      End With
                      With .Controls.add(Type:=msoControlPopup)
                          .Caption = "Работа с проектом"
                          With .Controls.add(Type:=msoControlButton, ID:=107)
                              .OnAction = "a_Cохранить_все_Модули_в_Архив"
                              .Caption = "Cохранение"
                              .TooltipText = "Cохранить все модули в архив"
                          End With
' и т.д., и т.п.
                      End With
                      
                      With .Controls.add(Type:=msoControlButton, ID:=107)
                          .OnAction = "a_Справка_по_Подключаемой_Библиотеке"
                          .Caption = "Справка"
                          .TooltipText = "Справка по Подключаемой Библиотеке"
                      End With                      
                  End With                 
                  Exit For                  
              End If
          End With
      Next
  End Sub

Private Sub mByRef(ByRef s As String) 
   Mid(s, 1, 1) = "!" 
End Sub 

Private Sub tByValByRef() 
Const s0 = "abc" 
Dim sx As String 
   sx = s0 
   mByRef sx 
   Debug.Print " sx    " & sx     '  sx    !bc 
   sx = s0 
   mByRef (sx) 
   Debug.Print "(sx)   " & sx    ' (sx)   abc  (значение sx не изменилось!) 
   sx = s0 
   Call mByRef(sx) 
   Debug.Print "Call   " & sx   ' Call   !bc 
End Sub