16进制Ascii码转字符问题

Question

我通过
   Public Function ZFto16(hz$) As String
   If hz = "" Then Exit Function
   ZFto16 = Hex(Asc(hz))
End Function
方法，把“陈良书”三个汉字转为“b3c2c1bccae920202020202020202020”
但我怎么反过来把“b3c2c1bccae920202020202020202020”转为“陈良书”呢？
还有把数字转的也能转吗？
最好写个单独的方法。谢谢各位了！

Answer 1

Private Sub Form_Load()
Dim B() As Byte, i As Long, J As Long
Dim S1() As String, S As String, A As String    S = "陈良书"
    B = S
    ReDim S1(UBound(B))
    For i = 0 To UBound(B)
        S1(i) = Right$("00" & Hex(B(i)), 2)
    Next i
    Debug.Print Join(S1, "")
    
    S = Join(S1, "")
    For i = 1 To Len(S) Step 2
        B(J) = "&H" & Mid$(S, i, 2)
        J = J + 1
    Next
    A = B
    Debug.Print A
End Sub

Answer 2

看看这个：http://download.csdn.net/source/1785343
一个一个字的转换，再组合起来