189 8069 5689
你逗橡是要把连续多个空格，变换成只需要一个空格，那么：
成都网站建设哪家好，找成都创新互联！专注于网页设计、网站建设公司、微信开发、小程序开发、集团成都企业网站定制等服务项目。核心团队均拥有互联网行业多年经验，服务众多知名企业客户；涵盖的客户类型包括：水电改造等众多领域，积累了大量丰富的经验，同时也获得了客户的一致称誉！
do while Instr(tStr," ")薯和0
数指盯tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop
首先你的textbox有一个属性得设置成多行族袭衫、支持回车符才行
其次，换行符我记得直接用\n就行
n个空禅山格你就写兆腔个循环用，每次循环就加上" "就行。
textbox.text = "12345" " " "67890"
或举圆者岁清
textbox.text = "12345" space(1) "67890"乎答前
Dim str As String = "中华人民共和国adfjpwqetqadfwetqgasdfewgt"
Dim tstr As String = ""
Dim i As Integer
键野桥 For i = 0 To str.Length - 1
tstr = str.Substring(i, 1) 脊码 " " '每一个字符后面加空格。
Next
稿猛tstr = tstr.TrimEnd(" ") '移除最后一个空格
Textbox1.Text = tstr