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