RTrim :

Rtrim 函数删除空白空间，在对字符串的右侧的空格。

语法 :

RTrim(String)

示例:

添加一个按钮，并添加以下功能

Private Sub Constant_demo_Click()
  Dim var as Variant
  var =       "Microsoft VBScript           "
  msgbox("After Rtrim : " & RTrim(var))
End Sub

当执行函数输出如下所示：

After Rtrim : Microsoft VBScript