查汉字内码的VB源码，个人所写，请提出宝贝意见。