求解VB6的文本转换成ACSII

Private Sub Command1_Click()
a = Trim(Text1.Text)
llen = Len(a)
For i = 1 To llen
b = Mid(a, i, 1)
Text2.Text = Text2.Text & Str(Asc(b))
Next
End Sub

private sub command1_click()
dim str as string
dim i as integer
dim l as integer
str=text1.text
l=len(str)
text2.text=""
for i=1 to l
text2.text=text2.text & asc(mid(str,1,i))
next i
end sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("z") Or (KeyAscii < Asc("a") And KeyAscii > Asc("Z")) Or KeyAscii < Asc("A") Then
KeyAscii = 0
End If
End Sub
Private Sub Command1_Click()
a =Text1.Text
x= Len(a)
For i = 1 To x
Text2.Text =Text2.Text + Asc(Mid(a, i, 1))
Next
End Sub