Dim oCtrl As ScriptControl
Dim vVal As Variant, msText As String
    Set oCtrl = New ScriptControl
    oCtrl.Language = "VBScript"
    msText = "Now"
    vVal = oCtrl.Eval(msText)
    MsgBox vVal