Scripting

I found an interesting thread few days back http://www.itninja.com/question/how-to-pass-value-to-vbs-function-in-binary-table and wanted to try that technique. So I did the following works and ended up with hiccups.

<--

Function Test()
    MsgBox "Hello"
    Test = 1
End Function

-->

saved this content in C:\Sample.vbs

VBscript -> Stored in binary table
VBScript Filename = <PATH_TO_SCRIPT_FILES>\Sample.vbs
Script Function = Test
Return Processing = Synchronous (Check exit code)
In-Script Execution = Deferred Execution in System Context (CA Type 3078)
Install Exec Sequence = After PublishProduct

Note: I didn't even pass any arguments.

But I'm getting the following error.

MSI (s) (4C:50) [19:50:16:374]: Executing op: ActionStart(Name=Ca_sample,,)
MSI (s) (4C:50) [19:50:16:374]: Executing op: CustomActionSchedule(Action=Ca_sample,ActionType=3078,Source=F[~]u[~]n[~]c[~]t[~]i[~]o[~]n[~] [~]T[~]e[~]s[~]t[~]([~])[~]
[~]
[~] [~] [~] [~] [~] [~]M[~]s[~]g[~]B[~]o[~]x[~] [~]"[~]H[~]e[~]l[~]l[~]o[~]"[~]
[~]
[~] [~] [~] [~] [~] [~]T[~]e[~]s[~]t[~] [~]=[~] [~]1[~]
[~]
[~] [~]E[~]n[~]d[~] [~]F[~]u[~]n[~]c[~]t[~]i[~]o[~]n[~]
[~]
[~] [~],Target=Test,)
MSI (s) (4C:F8) [19:50:16:375]: Generating random cookie.
MSI (s) (4C:F8) [19:50:16:378]: Created Custom Action Server with PID 7856 (0x1EB0).
MSI (s) (4C:F4) [19:50:16:432]: Running as a service.
MSI (s) (4C:50) [19:50:16:434]: Hello, I'm your 32bit Elevated custom action server.
MSI (s) (4C:3C) [19:50:22:232]: Product: My Database Name-1 -- Error 1720. There is a problem with this Windows Installer package. A script required for this install to complete could not be run. Contact your support personnel or package vendor. Custom action Ca_sample script error -2146828275, Microsoft VBScript runtime error: Type mismatch: 'F' Line 1, Column 1,

MSI (c) (88:0C) [19:50:16:448]: Font created.  Charset: Req=0, Ret=0, Font: Req=MS Shell Dlg, Ret=MS Shell Dlg

Error 1720. There is a problem with this Windows Installer package. A script required for this install to complete could not be run. Contact your support personnel or package vendor. Custom action Ca_sample script error -2146828275, Microsoft VBScript runtime error: Type mismatch: 'F' Line 1, Column 1,

I don't understand if i'm doing anything worng.. can somebody help me with it pls..??