Dim StringCalc As New ScriptControl StringCalc.Language = "VBScript" Msgbox StringCalc.Eval("25+45-sqr(10)") Set StringCalc = Nothing