Pipe Northin and Easting Start Points

[mehsan]

I want the VB code for Property sets for Pipe Nothing and Easting Start Points , Northing Separate and Easting Separate.

I am using this but it is returning 0 Value , Can any one Tell me where is the mistake 

RESULT="--"
On Error Resume Next
Set oApp=GetObject(, "AutoCAD.Application")
Set oCivilApp=oApp.GetInterfaceObject ("AeccXUiLand.AeccApplication.13.2")
Set obj=oCivilApp.ActiveDocument.HandleToObject("[Handle]")
RESULT=obj.position.y