Dim dblY As Double Dim pPoint As IPoint Set pPoint = [Shape] dblY = pPoint.Y __esri_field_calculator_splitter__ dblY