Compare number ranges in ABBYY FlexiCapture

vbscript

dim val, val1

val = me.Field("Field1").Value

val1 = CInt(val)

if val1 >= 1.00 and val1 <= 32.47 then

                me.Field("Field2").Value = "text"

else if val1 >= 32.48 and val1 <= 58.63 then

                me.Field("Field2").Value = "text"

else if val1 >= 58.64 and val1 <= 70.19 then

                me.Field("Field2").Value = "text"

else if val1 >= 70.20 and val1<= 77.71 then

                me.Field("Field2").Value = "text"

else if val1 >= 77.72 and val1 <= 100 then

                me.Field("Field2").Value = "text"

end if