Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)


Private Type Dummy_Byte
    b1 As Byte
    b2 As Byte
    b3 As Byte
    b4 As Byte
End Type

Private Function IsOdiousNumber(ByVal lVal As Long) As Boolean
    Dim b As Dummy_Byte

    CopyMemory b.b1, lVal, 4
    lVal = b.b1
    lVal = lVal Xor b.b2
    lVal = lVal Xor b.b3
    lVal = lVal Xor b.b4
    
    Dim l As Long

    l = l + ((lVal And &H80) \ &H80)
    l = l + ((lVal And &H40) \ &H40)
    l = l + ((lVal And &H20) \ &H20)
    l = l + ((lVal And &H10) \ &H10)
    l = l + ((lVal And &H8) \ &H8)
    l = l + ((lVal And &H4) \ &H4)
    l = l + ((lVal And &H2) \ &H2)
    l = l + ((lVal And &H1) \ &H1)
 
    IsOdiousNumber = (l And 1)
    
End Function

Private Function IsOdiousNumber(ByVal lVal As Long) As Boolean
    Do
        If lVal And 1 Then IsOdiousNumber = Not IsOdiousNumber
        lVal = lVal \ 2
        If lVal = 0 Then Exit Function
        If lVal = 1 Then IsOdiousNumber = Not IsOdiousNumber: Exit Function
    Loop
End Function

Private Function TestNum(ByVal lVal As Long) As Boolean
    
    If lVal < 1 Then Exit Function
    If Not lVal And 1 Then Exit Function
    
    mBitArray.AllocateBuffer lVal
    
    Dim i As Long
    For i = 1 To lVal Step 6
        mBitArray.SetValue i, True
        mBitArray.SetValue i + 2, True
    Next
    
    Dim lIncrement As Long
    Dim lPos As Long
    
    lPos = 3
    Dim lRet As Long
    
    Do
        lIncrement = mBitArray.FindPositive(lPos)
        If lIncrement = -1 Then Exit Do
        lRet = 1
        Do
            lRet = mBitArray.FindPositive(lIncrement, lRet) 'Save the last pos to not loop from start
            If lRet = -1 Then Exit Do
            mBitArray.SetValue lRet, False
        Loop
        If Not FindPositiveRev(1) = lVal Then Exit Function
        lPos = lPos + 1
    Loop
    If FindPositiveRev(1) = lVal Then TestNum = True
        
End Function