你是要把连续多个空格，变换成只需要一个空格，那么：
创新互联建站十载专注成都高端网站建设按需策划服务,为客户提供专业的成都网站制作,成都网页设计,成都网站设计服务;创新互联建站服务内容包含成都网站建设,小程序开发,软件开发,网络营销推广,网络运营服务及企业形象设计;创新互联建站拥有众多专业的高端网站制作开发团队,资深的高端网页设计团队及经验丰富的架构师高端网站策划团队;我们始终坚持从客户的角度出发,为客户量身订造网络营销方案，解决网络营销疑问。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop
textbox.text = "12345" " " "67890"
或者
textbox.text = "12345" space(1) "67890"
首先你的textbox有一个属性得设置成多行、支持回车符才行
其次，换行符我记得直接用\n就行
n个空格你就写个循环用，每次循环就加上" "就行。