Informar del error en el código fuente: Eliminar espacios de más en una cadena

Código en VBA que muestra como obtener los valores de una tabla, y eliminar los espacios que hay al inicio y final de una cadena, y los espacios sobrantes entre las palabras de dicha cadena, dejando únicamente un espacio donde hay mas de uno.