VBA调用DLL时出现ActvieX部件不能创建对象，是什么原因？

cgzabcd12345

VB模块中如下：
Public acadApp As Object
Public ThisDrawing As Object
类模块中如下：
Option Explicit
Public Function Start()
   Set ThisDrawing = acadApp.ActiveDocument
   Form1.Show
End Function
Private Sub Class_Initialize()
   Set acadApp = GetObject(, "AutoCAD.Application")
End Sub
VBA调用DLL时出现以上问题是那里的原因？跪求高手帮忙解答一下，在此先谢过了，

cgzabcd12345

程序第一次运行时可以，但第二次以后运行就出现以上问题，