La función Rtrim elimina los espacios en blanco del lado derecho de la cadena.
Sintaxis
RTrim(String)
Ejemplo
Agregue un botón y agregue la siguiente función.
Private Sub Constant_demo_Click()
Dim var as Variant
var = "Microsoft VBScript "
msgbox("After Rtrim : " & RTrim(var))
End Sub
Cuando ejecuta la función anterior, produce la siguiente salida.
After Rtrim : Microsoft VBScript