evaluatevba函数