Función que me tiene atascado...

[zolw]

Y aqui tienes un pequeño codigo que sirve para poder eliminar espacios que sean mayores a un espacio entre palabras.

Código:

'Teniendo una frase cualquiera
frase = "hola      esto es     una prueba"

'Quitamos todos los espacios extras
For quita_espacios = 10 to 2 Step -1
	For espacio = 1 to quita_espacios
		mete_espacio = mete_espacio & " "
	Next
	frase = Replace(frase,mete_espacio," ")
	mete_espacio = ""
Next

Te dará como resultado: hola esto es una prueba