Function Hex2BinSingleByte(H As String) As String
H = UCase(H)
Dim B As String
Select Case H
Case "0"
B = "0000"
Case "1"
B = "0001"
Case "2"
B = "0010"
Case "3"
B = "0011"
Case "4"
B = "0100"
Case "5"
B = "0101"
Case "6"
B = "0110"
Case "7"
B = "0111"
Case "8"
B = "1000"
Case "9"
B = "1001"
Case "A"
B = "1010"
Case "B"
B = "1011"
Case "C"
B = "1100"
Case "D"
B = "1101"
Case "E"
B = "1110"
Case "F"
B = "1111"
End Select
Hex2BinSingleByte = B
End Function
H = UCase(H)
Dim B As String
Select Case H
Case "0"
B = "0000"
Case "1"
B = "0001"
Case "2"
B = "0010"
Case "3"
B = "0011"
Case "4"
B = "0100"
Case "5"
B = "0101"
Case "6"
B = "0110"
Case "7"
B = "0111"
Case "8"
B = "1000"
Case "9"
B = "1001"
Case "A"
B = "1010"
Case "B"
B = "1011"
Case "C"
B = "1100"
Case "D"
B = "1101"
Case "E"
B = "1110"
Case "F"
B = "1111"
End Select
Hex2BinSingleByte = B
End Function