Public Function GetBoundaryPoint( _
   ByVal index As Long, _
   ByRef X As Double, _
   ByRef Y As Double, _
   ByRef Z As Double _
) As Boolean