请给我一个VB调用CAD的例子，希望有如下的完整内容：
1、打开一个CAD文件（如：C:\TEST.DWG)
2、用DEBUG.PRINT列出文件中的所有单行文字与多行文字的信息。如果文本读出来还包含格式信息都不要紧的，不需要您额外写代码整理成纯文本内容，只要读出来的数据含有文本的内容都可以的。
3、关闭CAD文件
希望能用VB写，不要用CAD中自带的VBA。如果没有的话用VBA也可以。
谢谢！
Sub xxxx()
Dim s As String
Dim elm As Object
Dim CadObj As Object
Dim CadDoc As Object
Set CadObj = CreateObject("AutoCAD.Application")
CadObj.Visible = True
Set CadDoc = CadObj.Documents.Open(CurrentProject.Path & "\test1.dwg")
For Each elm In CadDoc.ModelSpace
If elm.objectname = "AcDbMText" Or elm.objectname = "AcDbText" Then
s = elm.TextString
Debug.Print s
End If
Next
CadObj.Documents("test1.dwg").Close
CadObj.Quit
Set CadDoc = Nothing
Set CadObj = Nothing
End Sub
总记录：1篇 页次：1/1 9 1 :
