<HTML><BODY> #lang racket/base (require ffi/com) (let ([com (com-create-instance "MSScriptControl.ScriptControl")]) (com-set-property! com "Language" "VBScript") (com-invoke com "AddCode" "Function Test() \n Test=false \n End Function") (com-invoke (com-get-property com "CodeObject") "Test")) Returns #t (Racket 6.0 win32)If I send to COM, all is ok: (let ([com (com-create-instance "MSScriptControl.ScriptControl")]) (com-set-property! com "Language" "VBScript") (com-invoke com "AddCode" "Function Test(x) \n If x then \n Test = 1 \n else \n Test =2 \n End if \n End Function") (com-invoke (com-get-property com "CodeObject") "Test" #f)) ; => 2 (let ([com (com-create-instance "MSScriptControl.ScriptControl")]) (com-set-property! com "Language" "VBScript") (com-invoke com "AddCode" "Function Test(x) \n If x then \n Test = 1 \n else \n Test =2 \n End if \n End Function") (com-invoke (com-get-property com "CodeObject") "Test" #t)) ; => 1 And even (let ([com (com-create-instance "MSScriptControl.ScriptControl")]) (com-set-property! com "Language" "VBScript") (com-invoke com "AddCode" "Function Test(x) \n If x = false then \n Test = false \n End if \n End Function") (com-invoke (com-get-property com "CodeObject") "Test" #f)) ; => #t (let ([com (com-create-instance "MSScriptControl.ScriptControl")]) (com-set-property! com "Language" "VBScript") (com-invoke com "AddCode" "Function Test(x) \n If x = false then \n Test = x \n End if \n End Function") (com-invoke (com-get-property com "CodeObject") "Test" #f)) ; => #f -- Roman Klochkov</BODY></HTML>