你是要把连续多个空格，变换成只需要一个空格，那么：
网站制作、成都网站建设的关注点不是能为您做些什么网站，而是怎么做网站，有没有做好网站，给创新互联一个展示的机会来证明自己，这并不会花费您太多时间，或许会给您带来新的灵感和惊喜。面向用户友好，注重用户体验，一切以用户为中心。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop
用split函数
dim a()
a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a
得到的是文本，如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1)，全部转换自己弄个循环搞定
大概就这样，你自己试试吧
textbox.text = "12345" " " "67890"
或者
textbox.text = "12345" space(1) "67890"