[RESOLVED] select case between 3 values

[isnoend07]

How do I write this select case
Text1 = 50
ThisValue = val(Text1)
Highvalue = 500
MedValue = 100

Select case ThisValue
case is > MedValue and < HighValue
msgbox "medValue"
case is >= Highvalue
msgbox "HighValue"
case else
do nothing
end select