Dim dblX as double Dim pArea as IArea Set pArea = [shape] dblX = pArea.area __esri_field_calculator_splitter__ dblX