如何添加经纬度值而不只平面坐标值到属性表

<P>arcmap 用vba自动计算属性值时如何直接得到点的经纬坐标.</P>
<P>Dim Output As Double<BR>Dim pPoint As IPoint<BR>Set pPoint = [Shape]<BR>Output = pPoint.X</P>
<P>这样得到的只能是平面坐标值吗?</P>