Public Sub SetUserRange( _
   ByVal idUserRange As Long, _
   ByVal dLowX As Double, _
   ByVal dLowY As Double, _
   ByVal dLowZ As Double, _
   ByVal dHighX As Double, _
   ByVal dHighY As Double, _
   ByVal dHighZ As Double _
)