excel vba binary from byte value
Public Function ByteToBits$(ByVal n&)
ByteToBits = "00000000"
If n And 1 Then MidB$(ByteToBits, 15) = "1"
If n And 2 Then MidB$(ByteToBits, 13) = "1"
If n And 4 Then MidB$(ByteToBits, 11) = "1"
If n And 8 Then MidB$(ByteToBits, 9) = "1"
If n And 16 Then MidB$(ByteToBits, 7) = "1"
If n And 32 Then MidB$(ByteToBits, 5) = "1"
If n And 64 Then MidB$(ByteToBits, 3) = "1"
If n And 128 Then MidB$(ByteToBits, 1) = "1"
End Function
'------------------------------------------------------------------------------
MsgBox ByteToBits(0) '<--displays: 00000000
MsgBox ByteToBits(170) '<--displays: 10101010
MsgBox ByteToBits(255) '<--displays: 11111111