textbox problem
 

I have a text box that cant have the values 1 , 159, 162, 163, 165, 166,
168, 169 or anything above 170

I have written a code which changes the number into a red number if it is
wrong but the problem is when it checks the next number in the series it
converts the error back to black.

is there a way to get it to check for all of the numbers in one swoop
here is the code using the recorder but i need to change it to suit
d1.textbox
"=IF(OR(d1.value=1,d1.value=159,d1.value=162,d1.va lue=163,Rd1.value=165,Rd1.value=166,d1.value=168,d 1.value=169,d1.value170),""yes"",""no"")"
Thanks