Dim dblX as double Dim pPoint as IPoint Set pPoint = [shape] dblX = pPoint.x __esri_field_calculator_splitter__ dblX