.. se fai un ciclo di case?

select case text1.text
case >= 0 and <= 20
fai una cosa
case >=20.1 and <=30
fai un'altra cosa
-....
....
end select

fino a 500 non ti passa più... però in questo momento non saprei che altro fare...