求助、、这个怎么破？？

不会计算？
function 计算(byval 表达式 as string)as currency
dim vbs
set vbs = createobject("msscriptcontrol.scriptcontrol")
vbs.language="vbscript"
计算=val(vbs.eval(表达式))
end function

这个就算会也不想去破解。。。