Dim TP2() As String
L = Len(TP)
ReDim TP2(1 To L)
Dim P As String
P = "" '初始化为空字符串
For i = 1 To L
TP2(i) = Mid(TP, i, 1)
TP2(i) = Hex2BinSingleByte(TP2(i))
P = P + TP2(i)
Next i
Hex2Bin = P
End Function
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