一段VBA转化VB语言的

一段VBA转化VB语言的求助
VBA中一段代码：
Dim p As Varint
p = ThisDrawing.Utility.GetPoint(, vbCrLf & "First point: ") 
'鼠标点取获得P点坐标

如何将其转化为VB代码?
我尝试
p = acadApp.ActiveDocument.Utility.GetPoint(, vbCrLf & "First point: ")
显示事实错误'424'
要求对象
求指点


[解决办法]
可能是需要获取对象的原因吧。这样试一下：

VB code

    Dim cadApp As Object    Dim p As Variant    Set cadApp = CreateObject("AutoCAD.Application")    p = cadApp.ActiveDocument.Utility.GetPoint(, vbCrLf & "Frst Point: ")