怎样得到汉字的编码？

不知道你要汉字的什么编码？所以多给一点。
Private Sub Form_Click()
    Dim Arr() As Byte
    Arr = StrConv("网", vbFromUnicode)
    msgbox Hex(Arr(0)) & Hex(Arr(1)) & "H"  '内码
    msgbox  Str(Arr(0) - 128) & Str(Arr(1) - 128)  '国标码
    msgbox  Str(Arr(0) - 160) & Str(Arr(1) - 160) '区位码
End Sub