VB获得汉字的ascii码

为什么我用asc("字")获得是负数，我用ascw("字")获得的是unicode的但是我想要获得ascii码。例如：我用文本文件写一个汉字，当用UE查看的时候是2个字节数据，但怎样才能通过函数获得那二个字节数据呢？我不想要ascw()获得数据，我要的是文本文件中的二进制数据，如果还没明白的话我再说详细点：
比如："北"这个字我写到文本文件中用UE打开是B1 B1(16进制数据是：B1B1)这两个字节，二我用hex(ascw("北"))却是17 53（16进制数据数据是：5317)我的目的是得到：“B1B1”不管什么方法得到了就可以
――――――――――――――――答必重谢

---

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

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

---------------
aa=StrConv("谨枣链阿", vbFromUnicode)

Hex(AscB(MidB(aa, 1, 1))) + Hex(AscB(MidB(aa, 2, 1)))

---

<%
Function a(str)

Temp=Asc(str)
If Temp<闭宏世0 then
Temp=Temp+65536
end if
a=Hex(temp)
End Function
response.write a("绝慧北")
%>轿肢

---