[COLOR="DarkSlateGray"][B]Function hex_bin1$(h)
Dim y, i&
h = UCase("" & h)
y = Array("0123456789ABCDEF", "0000", "0001", "0010", "0011", "0100", "0101", "0110", "0111", "1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111")
On Error GoTo E
For i = Len(h) To 1 Step -1
h = Left$(h, i - 1) & Replace(h, Mid$(h, i, 1), y(WorksheetFunction.Find(Mid$(h, i, 1), y(0))), i, 1)
Next i
hex_bin1 = h
E: On Error GoTo 0
End Function
Function hex_bin2$(h)
Dim y, i&
h = UCase("" & h)
y = Array("0123456789ABCDEF", "0000", "0001", "0010", "0011", "0100", "0101", "0110", "0111", "1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111")
On Error GoTo E
For i = Len(h) To 1 Step -1
h = Left$(h, i - 1) & Replace(h, Mid$(h, i, 1), y(WorksheetFunction.Find(Mid$(h, i, 1), y(0))), i, 1)
Next i
For i = 1 To Len(h) - 1
If Left$(h, 1) = "0" Then h = Right$(h, Len(h) - 1) Else Exit For
Next i
hex_bin2 = h
E: On Error GoTo 0
End Function[/B][/COLOR]