VBA ¿Cómo limpiar una cadena de texto?

No encuentro un método para limpiar una cadena de dobles, tripes espacios en blanco. Por ejemplo:

“Hola   me   llamo               Juan”     ==>       “Hola me llamo Juan”

En Excel se resuelve el problema con la función TRIM, pero en WORD solo quita los espacios iniciales y finales.