This should be really simple and I'm surprized that an hour of looking through the forums and other support hasn't turned up an answer for me yet. Am I just being blind?
I have a shapefile of 3D points, and I want to fill a field in the attribute table with the Z values. Calculate Geometry does not offer Z coordinate options. So I've tried using the Field Calculator with
Dim Output As Double(and variants thereof)
Dim pPoint As IPoint
Dim pZAware as IZAware
Set pPoint = [Shape]
Set pZAware = pPoint
pZAware.ZAware = true
Output = pPoint.Z
But all I get for output is the value '1'