ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language="vbscript";
ScrptCtrl.AddCode(code);

Ага = ScrptCtrl.Run("TimeZone()");
Ага = ScrptCtrl.Eval("TimeZone()");

code = "        
|Function TimeZone()        
|    Dim Device    
|    Set Device = ""555""    
|End Function";

code = "        
|Function TimeZone()          
|    TimeZone = ""555""    
|End Function";

Результат должен быть в переменной с именем функции.

А да, еще вызов без скобок:

Ага = ScrptCtrl.Run("TimeZone");

Спасибо!