汉字对应的两个ASCII码？

[shxyz]

请问各位大侠，用VB编程如何取得任一汉字对应的两个ASCII码？

[suncisco]

left()right()
分别取出来!

[xfyxq]

Dim a As String
Dim i1 As String, i2 As String
Dim u As Integer
a = "一"
a = Hex(Asc(a))
MsgBox a 'a 由两个ascii组成，你看到的是两个16进制的。
i1 = Left(a, 2) '第一个ascii(是字符形式的)
i2 = Right(a, 2) '第二个
MsgBox i1
MsgBox i2
u = "&H" & i1 '变为十进制的数值
MsgBox u
MsgBox Hex(u)

[shxyz]

xiexie!