It used to be really east to find sample VBA code for this by searching the desktop help, but I was just looking for this and couldn't find it anywhere...until I clicked on the "Help" button right in the Field Calculator tool (at least in 9.3). This is from that help document. Dim Output As Double Dim pPoint As IPoint Set pPoint = [Shape] Output = pPoint.X
... View more