Public?Function?ConvertString(ByVal?strText?As?String)
Dim?strA?As?Variant
strA?=?"?-A-B-C-D-E-F-G-H-I-J-K-L-M-N-O-P-Q-R-S-T-U-V-W-X-Y-Z-a-b-c-d-e-f-g-h-i-j-k-l-m-n-o-p-q-r-s-t-u-v-w-x-y-z"
strA?=?Split(strA,?"-")
For?i?=?0?To?UBound(strA)
strText?=?Replace(strText,?strA(i),?Format(i,?"00")?&?"?")
Next?i
ConvertString?=?Trim(strText)
End?Function
将以上函数添加到模块中，然后使用代码
Text2.Text = ConvertString(Text1.Text)
就可以将Text1中的内容转换为数字并显示到Text2中
注意，我编写的这个函数只会转换英文字母和空格(你可以看看strA= "")，如果不是英文字母空格就会直接保留