使用内置VBScript函数