Imports CAD_RTM = Autodesk.AutoCAD.Runtime
<CAD_RTM.CommandMethod("MY_COMM")> _
Public Sub MY_COMM ()
...
Dim pr_Res_Dbl As Autodesk.AutoCAD.EditorInput.PromptPointResult = _
CAD_APS.Application.DocumentManager.MdiActiveDocument.Editor.GetDouble(...)
...
End Sub