VBA 로드 후 오류 문제 어떻게 해야 할까요??

(defun S::STARTUP()
  (command “_VBALOAD” “AutoDesignProgram1.121114.dvb”)
  (command “_VBArun” “ThisDrawing.starMenuGroups”)
)

이렇게 리습이 있습니다.

문제는 도면을 열면 한번 열때마다, 로드가 이미 되었다고 메세지가 나옵니다.
매번 귀찮게 확인 눌러야 되고,

더 문제는 도면 두장이상을 열면, 어떤 파일은 닫히는데.
결국 한개 파일은 vbarun 상태에서 빠져나오지를 못합니다.

어떤 메뉴를 클릭해도 안먹힙니다. 결국 강제 종료를 합니다.

  (command “_VBArun” “ThisDrawing.RobostarMenuGroups”)
를 빼면 되는데.. 그렇게 되면 메뉴가 추가가 안됩니다.

어떻게 해야 될지 모르겠습니다.
동영상 첨부하였습니다.

그리고,

Sub starMenuGroups()
    Dim currMenuGroup As AcadMenuGroup
    Dim newMenu As AcadPopupMenu
    Dim FileSubMenu10 As AcadPopupMenu
    Dim FileSubMenu20 As AcadPopupMenu
    Dim FileSubMenu30 As AcadPopupMenu
    Dim FileSubMenu40 As AcadPopupMenu
    Dim FileSubMenu50 As AcadPopupMenu
    Dim FileSubMenu60 As AcadPopupMenu

    Dim newMenuItem1 As AcadPopupMenuItem
    Dim newMenuItem2 As AcadPopupMenuItem
    Dim newMenuItem11 As AcadPopupMenuItem
    Dim newMenuItem12 As AcadPopupMenuItem
    Dim newMenuItem21 As AcadPopupMenuItem
    Dim newMenuItem22 As AcadPopupMenuItem
    Dim newMenuItem23 As AcadPopupMenuItem
    Dim newMenuItem31 As AcadPopupMenuItem
    Dim newMenuItem32 As AcadPopupMenuItem
    Dim newMenuItem41 As AcadPopupMenuItem
    Dim newMenuItem42 As AcadPopupMenuItem
    Dim newMenuItem43 As AcadPopupMenuItem
    Dim newMenuItem51 As AcadPopupMenuItem
    Dim newMenuItem52 As AcadPopupMenuItem
    Dim newMenuItem61 As AcadPopupMenuItem
    Dim newMenuItem62 As AcadPopupMenuItem
    Dim newMenuItem63 As AcadPopupMenuItem
    Dim newMenuItem64 As AcadPopupMenuItem
   
    Dim openMacro1 As String
    Dim openMacro2 As String
    Dim openMacro11 As String
    Dim openMacro12 As String
    Dim openMacro21 As String
    Dim openMacro22 As String
    Dim openMacro23 As String
    Dim openMacro31 As String
    Dim openMacro32 As String
    Dim openMacro41 As String
    Dim openMacro43 As String
    Dim openMacro51 As String
    Dim openMacro52 As String
   
    On Error GoTo ERRORTRAP
    ‘ 메뉴 파일명이 ACAD인 MenuGroups 특성 객체를 할당합니다.
    Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(“ACAD”)
    ‘ 이 그룹에 새로운 메뉴를 만듭니다
    Set newMenu = currMenuGroup.Menus.Add(“&Robostar”)
    ‘ 매크로를 지정합니다.
    openMacro1 = Chr(3) & Chr(3) & Chr(95) & “vbarun” & ” thisdrawing.순서1″ & Chr(32)
    openMacro2 = Chr(3) & Chr(3) & Chr(95) & “vbarun” & ” thisdrawing.순서2″ & Chr(32)

         ~~~~~~~ 유사 코드로 중략 ~~~~~

    openMacro52 = Chr(3) & Chr(3) & Chr(95) & “vbarun” & ” thisdrawing.사용자등록창” & Chr(32)

    ‘ 주 메뉴에 새로운 메뉴 항목을 추가합니다.

         ~~~~~~~ 유사 코드로 중략 ~~~~~

         Set FileSubMenu10 = newMenu.AddSubMenu(“”, “&B 옵션2”)
        Set newMenuItem11 = FileSubMenu10.AddMenuItem(newMenu.count + 1, “&1 검색”, openMacro11)
        Set newMenuItem12 = FileSubMenu10.AddMenuItem(newMenu.count + 1, “&2 검색2”, openMacro12)    newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.count + 1)

       ~~~~~~~ 유사 코드로 중략~~~~~

    Exit Sub
ERRORTRAP:
    ‘MsgBox “오류가 발생되었습니다. – ” & Err.Description

End Sub