La función VBA RTRIM devuelve una cadena después de eliminar los espacios a la derecha de la cadena.
RTrim(texto)
Elimine los espacios solo del lado derecho de la línea:
Sub RTrimExample() MsgBox RTrim(" test") 'Devuelve: "test" MsgBox RTrim("test ") 'Devuelve: "test" MsgBox RTrim(" test ") 'Devuelve: "test" MsgBox RTrim(" test test ") 'Devuelve: " test test" End Sub