设置变量的最佳方法是什么

'not even too very close to actual code
Private Sub AcadDocument_EndLisp(LispyFileName as String)
If LispyFileName = "acad.lsp" then
  'crap you want to do here
end if
end sub

Private Sub AcadDocument_EndLisp()
    MsgBox "DOCLISP"
End Sub

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    If CommandName = "COMMANDLINE" Then
        Set AutoCAD = ThisDrawing.Application
    End If
End Sub

Private Sub AutoCAD_EndLisp()
    MsgBox "LISPING:"
End Sub

Public WithEvents AutoCAD As AcadApplication
Private bApp As Boolean
Sub App_StartMacro()
    Set AutoCAD = ThisDrawing.Application
End Sub
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
    If CommandName = "COMMANDLINE" Then
        Set AutoCAD = ThisDrawing.Application
        If Not bApp Then
               bApp = True
               AppStuff
        End If
    End If
End Sub
Private Sub AutoCAD_EndOpen(ByVal FileName As String)
    AppStuff
End Sub
Private sub Appstuff
   msgbox "appstuff"
End Sub