...und wozu ist das "C" ?

Meine Idee wäre die (allerdings mit dem "Massaker"-Nachteil, den PickNick erwähnte):

Code:
Dim Alt as byte     'Ausgangs-Byte
Dim Neu as byte   'Invertiertes Byte
Dim A as byte
Dim B as byte
.
.
.
For A = 0 to 7
B = 7 - A
Neu.A = Alt.B
Next A
.
.
.
Nicht schön, aber selten...