你是要把连续多个空格，变换成只需要一个空格，那么：
成都创新互联专业为企业提供沁县网站建设、沁县做网站、沁县网站设计、沁县网站制作等企业网站建设、网页设计与制作、沁县企业网站模板建站服务，十载沁县做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格，替换2个空格
loop
思路与方法：
1，一行为读取单位，读取并保存到数组。
2，逆序循环，可以获得末尾空白行数。
3，以行为写单位，写入到文件。
如果只是末尾的空行，直接用Trim方法就可以了
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行，用了Trim方法后就把后面的空行都去除了
MsgBox(str)'这里可以看到