Public Function SegmentDimMinusTol( _
   ByVal segment As Long, _
   ByVal Feature As Long _
) As Double