Example 1

Dim result : result = 0
Dim a : a = 5
Dim b : b = 10
ExecuteGlobal "result = a + b"

Example 2

Dim subStr : subStr = "Sub HelloWorld() : MsgBox ""Hello World!"" : End Sub"
ExecuteGlobal subStr

Example 3

function SetDict(strArg)
    Call ExecuteGlobal("Set "&strArg&" = Server.CreateObject(""Scripting.Dictionary"")")
end function

Reference

http://www.gwmicro.com/Support/Knowledge_Base/?kbnumber=GWKB2035