Public Sub GetModelRange( _
   ByRef pdLowX As Double, _
   ByRef pdLowY As Double, _
   ByRef pdLowZ As Double, _
   ByRef pdHighX As Double, _
   ByRef pdHighY As Double, _
   ByRef pdHighZ As Double _
)