Code:
Dim Variable As Byte
Variable.2 = 1              ' 3. Bit setzen
If Variable.2 = 1 Then ...
mfg