Sub Example_MenuFileName()
    'Этот пример находит имя файла для всех загруженных групп меню.
    
    Dim fileNames As String
    Dim menuGroup As acadMenuGroup
    
    fileNames = ""
    For Each menuGroup In ThisDrawing.Application.MenuGroups
        fileNames = fileNames & menuGroup.name & "  " & menuGroup.MenuFileName & vbCrLf
    Next menuGroup
    MsgBox fileNames
End Sub