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