HEX <-> BIN

I don't know if you can do it directly, but here the code to convert Hex to decimal and then decimal to binary

Hex to Dec
Function HexToDec(HexValue As String) As Long
HexToDec = Val("&H" & HexValue)
End Function

Function HexToDec(HexValue As String, Optional ToInteger As Boolean) As Long
If ToInteger Then
' convert to an integer value, if possible.
' Use CInt() if you want to *always* convert to an Integer
HexToDec = Val("&H" & HexValue)
Else
' always convert to a Long. You can also use the CLng() function.
HexToDec = Val("&H" & HexValue & "&")
End If
End Function

Here's a function that will convert any decimal number less than 256 to binary:

Function Decimal2Binary(TheNumber As Integer) As String
Dim TheBinaryNumber As String
Dim ThePosition As Integer
Dim iWork As Integer
TheBinaryNumber = "00000000"
If TheNumber < 256 Then
ThePosition = 128
For iWork = 1 To 8
If TheNumber >= ThePosition Then
Mid$(TheBinaryNumber, iWork, 1) = "1"
TheNumber = TheNumber - ThePosition
End If
ThePosition = ThePosition / 2
Next
End If
Decimal2Binary = TheBinaryNumber
End Function

Iouri Boutchkine
[email protected]