Получение всех пунктов меню

Private Sub Autorisation()
 
Dim i        As Integer
Dim cmdPopUp As CommandBarPopup
 
For i = 1 To CurrentProject.Application.CommandBars("Имя меню").Controls.Count
     If CurrentProject.Application.CommandBars("Имя меню").Controls.Item(i).Type = msoControlPopup Then
        Set cmdPopUp=CurrentProject.Application.CommandBars("Имя меню").Controls.Item(i)
        Call GetPUM1 (cmdPopUp)
     else
        ...
     end if
next i
 
End Sub
'----------------------------------------------------------------------------
Private Function GetPUM1(ByVal PUM As CommandBarPopup)
 
Dim PopUpMenu       As CommandBarPopup
Dim i            As Integer
 
    For i = 1 To PUM.Controls.Count
    
        If PUM.Controls.Item(i).Type = msoControlPopup Then
            Set PopUpMenu = PUM.Controls.Item(i)
            Call GetPUM2(PopUpMenu, FunctionCount())
        Else
            ...
        End if
    Next i
 
End Function
'---------------------------------------------------------------------------
Private Function GetPUM2(ByVal PUM As CommandBarPopup)
...
End Function
'----------------------------------------------------------------------------
...