WorksheetFunction.Trim (Excel)

Elimina los espacios del texto, excepto el espacio normal que se deja entre palabras. Use Trim en texto que haya recibido de otra aplicación que pueda tener un espaciado irregular.

Trim (Arg1)

Arg1: Texto: texto del que se desea quitar espacios.

Dim strArg1 As String: strArg1 = 
Dim strTrimmed As String
strTrimmed = WorksheetFunction.Trim(Arg1:=strArg1)