Quitar espacios al cargar .txt en RichTextBox

[pkj]

Una vez cargado el texto

-------------------------
Do Until InStr(1, RichTextBox1.Text, Space(2)) = 0
RichTextBox1.Text=Replace (RichTextBox1.Text,Space(2), " ")
Loop
--------------------------

Si te siguen apareciendo las palabras separadas puede ser por haber tabulaciones en lugar de espacios.
En ese caso tendrías que convertirlas en espacios antes de quitar los espacios repetidos:

-------------------------
RichTextBox1.Text=Replace (RichTextBox1.Text,vbTab, " ")

Do Until InStr(1, RichTextBox1.Text, Space(2)) = 0
RichTextBox1.Text=Replace (RichTextBox1.Text,Space(2), " ")
Loop
--------------------------

Saludos

RE-EDITADO
Cuanto mejor quede más felices...