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