dim a as byte
dim b as long
 
'als Zuweisung
a = a and 0b00000111 ' die Bits 3-7 werden gelöscht
a = b and 0x000000ff ' nur das unterste Byte lesen
 
'als Abfrage
if (a and 0b00000111) then
  ' Bedingung ist wahr wenn ein oder mehrere der Bits 0-2 gesetzt sind
end if