求指正下面程序的错误？

13022164437

我想当打开cad文件时，自动加载命令，但下面的程序只能在打开第一个文件时加载vba宏，怎样才能每次打开文件时都能加载呢？
Public TestLoad As Boolean
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
   If Not TestLoad Then
        ThisDrawing.SendCommand "(defun c:bz()(vl-vbarun ""bz"")(princ))(princ)" & vbCr
        ThisDrawing.SendCommand "(defun c:rz()(vl-vbarun ""rz"")(princ))(princ)" & vbCr
       TestLoad = True
   End If
End Sub

fjfhgdwfn

If Not TestLoad Then
        ThisDrawing.SendCommand "(defun c:bz()(vl-vbarun ""bz"")(princ))(princ)" & vbCr
        ThisDrawing.SendCommand "(defun c:rz()(vl-vbarun ""rz"")(princ))(princ)" & vbCr
       TestLoad = True

else

    ThisDrawing.SendCommand "bz" & vbCr
        ThisDrawing.SendCommand "rz" & vbCr

   End If