［急］生僻字的区位码

我采用如何代码来求汉字的区位码：
CInt(Format((Asc(Mid(S, I, 1)) + 65536) \ 256 - 160, "00") & Format((Asc(Mid(S, I, 1)) + 65536) Mod 256 - 160, "00")) CInt(Format((Asc(Mid(S, I,