Sub And64Bits(a As Long, b As Long) As Long
Dim c As Long = Bit.And(Bit.And(a / Power(2, 48), 65535), Bit.And(b / Power(2, 48), 65535))
For j = 1 To 3
a = a * 65536
b = b * 65536
c = c * 65536 + Bit.And(Bit.And(a / Power(2, 48), 65535), Bit.And(b / Power(2, 48), 65535))
Next
Return c
End Sub