La función VBA TRIM devuelve una cadena después de eliminar los espacios de la izquierda y la derecha de la cadena.
Trim(texto)
Eliminemos los espacios adicionales al principio y al final de la línea:
Sub TrimExample() MsgBox Trim("test") 'Devuelve: "test" MsgBox Trim(" test") 'Devuelve: "test" MsgBox Trim("test ") 'Devuelve: "test" MsgBox Trim(" test ") 'Devuelve: "test" MsgBox Trim(" test test ") 'Devuelve: "test test" MsgBox Trim(" ") 'Devuelve: "" End Sub