getting "type mismatch error" when calling function in qtp

[nmakkena]

Hi
Iam very new to QTP and am trying to call a function from qtp.
my function is :

Code:

Function sample()
msgbox "sample function"
End Function

i have added this script to qtp ( file -> settings-> resources).
However when i calling the function(call sample())in qtp its giving "type mismatch error".
please help me.

I am using QTP 10 trail version with activex,vb and web addins.