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