You could try using select case. Then you could say something like
select case B1
case 98 to 102
do something

end select

This is not tested but may work.