Saludos a todos!

Tengo un programa que uso para leer un archivo .bin, lo convierto a binario y cambio bits de un lado a otro. Pero es necesario que el proceso se haga cada 16 bits, en total son 8 cambios de posicion.

Necesito hacer esto cada 16 bits hasta el final del archivo:

12 al 2
15 al 4
9 al 13
5 al 10
11al 8
3 al 7
1 al 14
16 al 6

La manera que lo estoy haciendolo me da el resultado pero me tomaria una eternidad hacerlo asi

Chunk = Text1.Text
Bit1 = 12
Bit2 = 16
bChar = Mid$(Chunk, Bit1, 1)
Mid$(Chunk, Bit1, 1) = Mid$(Chunk, Bit2, 1)
Mid$(Chunk, Bit2, 1) = bChar
Text2.Text = Chunk

En otras palabras estoy haciendo esto 8 veces cada 12 bits, me muero...

Hay alguna manera de automatizar los 8 cambios cada 16 bits hasta el final?

8 bit shift cada 16 bits independientemente...

Gracias por su tiempo amigos!