下面是部分代码，简单的说，就是自己判断是否是汉字，然后按双字节的字符去处理它
if AscB(MidB(strFrom, i, 1)) > 127 then
        strTo = strTo & chr(Ascb(MidB(strFrom, i, 1))*256+Ascb(MidB(strFrom, i+1, 1)))
        i = i + 1
     else
        strTo = strTo & ChrW(AscB(MidB(strFrom, i, 1)))
     end if