如何取得汉字的区位码
　
Dim f
Dim L1, R1 As Integer
Dim InputStr As String
InputStr = "汉"
f = Hex(Asc(InputStr))
L1 = CInt("&H" + Mid(f, 1, 2))
R1 = CInt("&H" + Mid(f, 3, 2))