Public Function Add( _
   ByVal Point1x As Double, _
   ByVal Point1y As Double, _
   ByVal Point1z As Double, _
   ByVal Point2x As Double, _
   ByVal Point2y As Double, _
   ByVal Point2z As Double _
) As Zone