怎样用VB实现 姓名代码表 查询

Private Sub Command1_Click()

Text2.Text = ""

s = Trim(Text1.Text)

For i = 1 To Len(s)

x = Asc(Mid(s, i, 1)) + 65536

Text2.Text = Text2.Text & Mid(s, i, 1) & " ?" & x \ 256 - 160 & Format(x Mod 256 - 160, "00") & vbCrLf

Next i

End Sub