Public Function BIT_AND(IN1 As Currency, IN2 As Currency) As String
Dim Bits(1) As String, OUT As String
Dim count As Long
Bits(0) = ToBin(IN1)
Bits(1) = ToBin(IN2)
 
If Len(Bits(0)) > Len(Bits(1)) Then
   Bits(1) = String(Len(Bits(0)) - Len(Bits(1)), "0") & Bits(1)
Else
   Bits(0) = String(Len(Bits(1)) - Len(Bits(0)), "0") & Bits(0)
End If
OUT = String(Len(Bits(0)), "0")
For count = 1 To Len(Bits(0))
   If Mid(Bits(0), count, 1) = "1" And Mid(Bits(1), count, 1) = "1" Then
      Mid(OUT, count, 1) = "1"
   End If
Next count
BIT_AND = OUT
End Function
 
Private Function ToBin(IN1 As Currency) As String
Dim lValue As Currency
Dim cValue As String, cRest As String
lValue = IN1
While lValue > 0
   lValue = DIV_2(lValue, cRest)
   cValue = cRest & cValue
Wend
ToBin = cValue
End Function
 
Private Function DIV_2(IN1 As Currency, REST As String) As Currency
Dim OUT As Currency
Dim cHelper As String
OUT = IN1 / CCur(2)
If OUT < 1 Then
   OUT = 0
   REST = 1
Else
   cHelper = CStr(OUT)
   If Right$(cHelper, 2) = ",5" Then
      cHelper = Left$(cHelper, Len(cHelper) - 2)
      OUT = CCur(cHelper)
      REST = "1"
   Else
      OUT = CCur(cHelper)
      REST = "0"
   End If
End If
DIV_2 = OUT
End Function

Debug.Print BIT_AND(CCur(587473352323#), CCur(4294967295#))