方法很多，我用ASCII码减去64的方法.
Private Sub Command1_Click()
chlen = Len(Text1.Text)
For i = 1 To chlen
ch = Mid(Text1.Text, i, 1)
Text2.Text = Text2.Text & Asc(ch) - 64
Next
End Sub
Private Sub Text1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024