Quitar espacios al cargar .txt en RichTextBox

[hunter18]

Cargo el archivo pero quiero que si hay mas de dos espacios solo me muestre un espacio al cargarlo en el RichTextBox1 por ejemplo el archivo.txt contiene esto:

Código PHP:

  palabra 1, palabra 2,               palabra 3, palabra 4  
   

Como veran entre palabra 2 y palabra 3 hay mas de un espacio al cargarlo en el richbox quiero que me muestre asi

Código PHP:

  palabra 1, palabra 2, palabra 3, palabra 4  
   

En pocas palabra cuando haya mas de dos espacios solo le coloque uno

Código:

  Open CommonDialog1.FileName For Input As #1
  
  While Not EOF(1)
    'Leemos la línea
    Line Input #1, Linea
    
    'Vamos cargando las líneas leídas en el text1
    RichTextBox1.Text = RichTextBox1.Text & Linea & vbNewLine
  Wend
  
  'Cerramos el archivo abierto anteriormente
  Close

[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...

[hunter18]

muy bueno tio funciona correctamente.