VBScript VarType 函数