Thanks Rob - THe Case staement works but ...
I should have said more. I am using the conditional test in a Whil
Loop - and I can't seem to get the syntax correct for combining Cas
with a While statement

eg. My Code is

Pointer = 1
MyString = Mid(TargetString,Pointer,1)
While MyString = "1","2","3","4","5","6"