Dim AcadApp As AcadApplication
Private Sub Command1_Click()
   AcadApp.Quit
   Set AcadApp=Nothing
End Sub

Dim AcadApp As AcadApplication  定义为一个指定类型的对象
Private Sub Command1_Click()
   AcadApp.Quit      使用，但你在哪里初始化了？对象没有实例，当前是 nothing
   Set AcadApp=Nothing
End Sub

那你帮我改改吧

如果运行未提示“用户定义类型未定义”的话，说明你autoacd的相关com件已经注册并引用正常，试试将Dim AcadApp As AcadApplication改成Dim AcadApp As New AcadApplication。
我没有autocad的com件，无法实验。

你在另一个贴子里的代码就是啊。

Set AcadApp = GetObject(, "AutoCAD.Application")            '读取已存在对象
If Err Then                                                 '出现错误，说明没有读取成功
   Err.Clear                                                '清除错误信息
   Set AcadApp = CreateObject("AutoCAD.Application")        '创建对象

我也没有安装 AutoCad ，无法测试。