Operation with Bits

[mutley]

Hi
Somebody have functions that work with bits , example

The bits are all with Zeros, e when

I set bit 0 = return number 1
I set bit 1 = return number 3
I set bit 2 = return number 7
I Reset bit 0 - return Number 6

thank you in advance

[Comintern]

Just use the bitwise operators with powers of 2:

Private Sub BitWise()
 
    Dim lVar As Long
 
    'I set bit 0 = return number 1
    lVar = lVar Or 1&
    Debug.Print lVar
    'I set bit 1 = return number 3
    lVar = lVar Or 2&
    Debug.Print lVar
    'I set bit 2 = return number 7
    lVar = lVar Or 4&
    Debug.Print lVar
    'I Reset bit 0 - return Number 6
    lVar = lVar And Not 1&
    Debug.Print lVar
 
End Sub