谁能帮我逐句解释一下如下VB语句 不是很难

Dim acadApp As AcadApplication ’定义CAD分配空间

On Error Resume Next‘出错控件转到紧接着发生错误的语句之后的语句，并在此继续运行。
Set acadApp = GetObject(, "autocad.application") ‘本人没用过vb联系acad，猜测是将autocad.application的值或者对象传给acadapp
If Err Then ‘如果出错
Err.Clear ‘清楚错误信息
Set acadApp = CreateObject("autocad.application") ‘前面读取失败的话则新建一个对象
If Err Then 如果新建出错
MsgBox …… 跳出消息框，显示不能运行CAD,请检查是否安装
End If if条件语句结构结束
Exit Sub 过程结束

你的程序有点小问题^_^
Dim acadApp As AcadApplication '将acadApp定义为CAD应用程序对象
On Error Resume Next ‘执行语句出错则直接执行下一条语句
Set acadApp = GetObject(, "autocad.application") ’'检查AutoCAD是否已经打开，如果有，将acadApp 设置为CAD对象。
If Err Then '如果没检测到CAD打开，或检测出错
Err.Clear ‘清除程序运行过程中所有的错误，（在上句中err可能为某个整数）
Set acadApp = CreateObject("autocad.application") ’创建一个CAD对象，并将其赋给acadApp
If Err Then ‘如果创建CAD失败或出错
MsgBox ("不能运行CAD,请检查是否安装")