vba代码获取CAD位数和VBA的版本

CAD不同的版本及不同的vba不同的版本之间代码往往不通用，写代码前如果搞不懂自己的CAD和vba版本，可运

Sub getversion()
#If win64 Then
MsgBox "您的CAD版本为64位"
#ElseIf Win32 Then
MsgBox "您的CAD版本为32位"
#End If
#If VBA7 Then
MsgBox "您的vba版本为vba7"
#ElseIf VBA6 Then
MsgBox "您的vba版本为vba6"
#End If
End Sub

行此代码获取版本信息。