Raise to the power of

[Jerson]

It will be easier to do this

for i = 1 to 16
   x = y & 1                  ' take the lowest bit
   ' put it out here
   y = y >> 1                '  shift right by 1 place
next

Better still, have you considered using the SHIFTOUT command? It's made for applications like these.