如何获得汉字的区位码

关于编写一个程序实现获取从键盘输入的汉字的区位码。（最好用VB或TC）
如有源代码那就更完美了！！！的问题

‘用VB制作的…选在窗体上建一文本框和一个按钮之后在command1里输入这些代码
Dim a1() As Byte,b1 as , b1 As String
b1 = Text1.Text ‘假设要查的区位码文字是由text1.text取得
If b1 = “” Then Exit Sub
If Asc(b1)