auf ein einzelnse bit in einer variabel kannst du folgendermassen zugreifen:

dim bla as byte

bla.0 --> erstes Bit
bla.1 --> zweites Bit
.
.
bla.7 --> achtes Bit

gruss bluesmash