Forse lui intendeva una cosa del genere:
codice:
Dim vbs As New ScriptControl 
Dim y as long 
MyStr = "22/100*130" 
vbs.Language = "VBSCRIPT" 
y = vbs.Eval MyStr