Solved! Go to Solution.
Set pPolyline = pFeature.Shape Dim pMidPoint As IPoint Set pMidPoint = New Point 'Find midpoint pPolyline.QueryPoint 0, 0.5, True, pMidPoint
Set pPolyline = pFeature.Shape Dim pMidPoint As IPoint Set pMidPoint = New Point 'Find midpoint pPolyline.QueryPoint 0, 0.5, True, pMidPoint