Normnet,

I can use select case but something like the following would be nice.
You can use some of the code that you posted. Except that I would do the increment from 0 to 7 instead of the other way. But, all depends on what you are trying to do. What exactly are you trying to do?

Code:
VAR   X   BIT[8]

For I = 0 to 7 
X[I] = varBYTE.I 
next

For I = 0 to 7 
varBYTE.I = X[I] 
next
Robert