Dim dblX As Double Dim pPoint As IPoint Set pPoint = [Shape] dblX = pPoint.X __esri_field_calculator_splitter__ dblX