vb中如何增加空格？

例如，我在text1.text 中输入12345
如何自动使的text1.text动态变成 1 2 3 4 5
就是要有距离，我这么做，就是因为，我是小写数字金额，想和上面的，千百十分对齐 --------------------编程问答-------------------- 1 & chr(32) &2 --------------------编程问答-------------------- dim s as string ,t as string
dim i as long
s=text1.text
for i=1 to len(s)
    t=t & mid(s,i,1) & " "
next
text1.text=t --------------------编程问答-------------------- 如果是纯英文，可以用下面的方式
debug.print replace(strconv("abc",vbUnicode),chr(0)," ") --------------------编程问答-------------------- dim s as string ,t as string
dim i as long
s=text1.text
for i=1 to len(s)
    t=t & mid(s,i,1) & " "
next
text1.text=t
一动就死机,代码看起来好像没有问题，但好像不能执行，是不是放在change()过程里? --------------------编程问答-------------------- 放在change事件中会死循环拉
--------------------编程问答-------------------- 不过加个状态变量就可以
Private st As Boolean  'st 表示VB现在是否属于代码更新 text1值属于就退出text1事件过程
Private Sub Text1_Change()
  If st Then Exit Sub
  Dim s As String, t As String
  Dim i As Long
  s = Text1.Text
  st = True
  For i = 1 To Len(s)
    t = t & Mid(s, i, 1) & " "
  Next
  Text1.Text = t
  st = False
End Sub --------------------编程问答-------------------- 对了，让123456之间变成1.2个空格吗?这个距离怎么算 --------------------编程问答-------------------- 那不能用text控件了吧试试richtextbox

补充：VB ,  基础类