Function f_SetBit(lngNum As Long, ByVal lngBit As Long) As Long
        '  Setzt ein Bit in lngNum
        If lngBit = 31& Then
           lngNum = &H80000000 Or lngNum
        Else
           lngNum = (2 ^ lngBit) Or lngNum
        End If
 
        f_SetBit = lngNum
 
End Function

Function f_IsBitSet(ByVal lngNum As Long, ByVal lngBit As Long) As Boolean
        '  Test, ob ein Bit gesetzt ist
        f_IsBitSet = False
 
        If lngBit = 31& Then
           If lngNum And &H80000000 Then
              f_IsBitSet = True
           End If
        Else
           If lngNum And (2 ^ lngBit) Then
              f_IsBitSet = True
           End If
        End If
 
End Function

Function f_ClearBit(lngNum As Long, ByVal lngBit As Long) As Long
        '  Löscht ein Bit in lngNum
        If lngBit = 31& Then
           lngNum = &H7FFFFFFF And lngNum
        Else
           lngNum = ((2 ^ lngBit) Xor &HFFFFFFFF) And lngNum
        End If
 
        f_ClearBit = lngNum
 
End Function

Tschaui
Woellmi