Here's the situation...

I need to take the fifth digit of a six digit strText. If the fifth digit
is even, I need to store the data row in worksheet(Controlled), Else if the
fifth digit is odd, then store the data row in worksheet(Experimental).

After sorting current records, I need to create a form for data input. I
figure it would be easier to have the data separated during initial processes.

I thought of using the inStr function, but this would only work if I first
put spaces between each digit, right. If someone knows of an easier way to
do this, please help.