Problema con gli spazi

[francy_eb]

Ciao a tutti,
ho il seguente problema, io ho una stringa es: pate d oca, in questa funzione ho fatto in modo che mi venissero scartate le parola di lunghezza inferiore ai 4 caratteri, come posso fare ad eliminare eventuali spazi che rimango, perchè togliendo la "d" mi rimane un doppio spazio.
Dim I, pippo, query

query = pate d oca
pippo = Split(Trim(query))

for I = 0 to UBound(pippo)
If Len(pippo(I)) < 4 Then
pippo(I) = ""
End If
next

query = Join(pippo)

[DarioN1]

Se devi togliere gli spazzi :

testo = replace(testo," ","")

. . . sempre se è questo quello che cerchi . . .

[francy_eb]

Non in verità a me serve togliere gli spazi in eccesso ma ho risolto!!
Grazie