VB内置的常用函数里就有这个功能
mid函数:比如你在text1中输入的三位数是123
a=text1.text
text2.text=mid(a,1,2)
这时输出的字符是1和2,含义是从第一个字符开始的前两个字符,再比如是mid(a,1,3)意思就是从第一个开始的前三个字符,要实现你要求的功能就是text2.text=mid(a,1,1)+" "+mid(a,2,1)+" "+mid(a,3,1)