请问将汉字转换成ASCII码,怎样转换回来

Hex(AscW(StrConv("北", vbFromUnicode))) 

或 
Hex(AscW(StrConv("北", 128))) 

--------------- 
aa=StrConv("北", vbFromUnicode) 

Hex(AscB(MidB(aa, 1, 1))) + Hex(AscB(MidB(aa, 2, 1)))
我用以上代码将"北"这个汉字转换成"B1B1"
我现在想将"B1B1"转换成汉字"北" --------------------编程问答-------------------- Private Sub Command1_Click()
    Dim s As String
    s = Hex(Asc("北"))
    Print s
    s = Chr(CLng("&H" & s))
    Print s
End Sub --------------------编程问答-------------------- chr对应ascii
chrw对应asciiw
--------------------编程问答--------------------

引用 2 楼 jennyvenus 的回复:

chr对应ascii 
chrw对应asciiw 

--------------------编程问答-------------------- '汉字转16进制
Dim HexStr$
Private Sub Command1_Click()
   HexStr = Hex(Asc("北"))
   MsgBox HexStr
End Sub

'*************************************************************

'16 进制转汉字
Dim CHStr$
Private Sub Command1_Click()
   CHStr = Chr("&H" + "B1B1")
   MsgBox CHStr
End Sub

--------------------编程问答-------------------- mark --------------------编程问答-------------------- 照2楼所说的是这样

Dim dt As String, stw As Long

dt = "北"

stw = Hex(AscW(dt))

Debug.Print stw

Debug.Print ChrW(Val("&h" & stw))

--------------------编程问答-------------------- stw 应为string

Dim dt As String, stw As String

dt = "北"

stw = Hex(AscW(dt))

Debug.Print stw

Debug.Print ChrW(Val("&h" & stw))

--------------------编程问答-------------------- 用4樓的方法,就可以完成轉換

补充：VB ,  基础类