Public Sub GetUserRange( _
   ByVal idUserRange As Long, _
   ByRef pdLowX As Double, _
   ByRef pdLowY As Double, _
   ByRef pdLowZ As Double, _
   ByRef pdHighX As Double, _
   ByRef pdHighY As Double, _
   ByRef pdHighZ As Double _
)