Dim dblLength as double Dim pCurve as ICurve Set pCurve = [shape] dblLength = pCurve.Length __esri_field_calculator_splitter__ dblLength