How to pass 2 arguments to a function

[Rashmi]

I have created a function for string comaprison in .vbs file
The function looks like this and i am getting the return value

Code:

Public function StringCom(x1,x2)
Dim getvalue
getvalue =StrComp(x1,x2,compare)
StringCom =getvalue
End function

Now i call this function in QTP

Code:

dim x
x1 = "abc"
x2 = "abcdef"
x =Call StringCom (x1, x2)
msgbox x

here x should display the return value from the function

When i run this function in qtp, i get the following error message- Type msimatch StringCom

Can anybody please provide the right code

[somisays]

Dear Rashmi,
Your code is fine except calling the function.
You don need to use the call statement.
so instead of this line

Code:

x =Call StringCom (x1, x2)

use

Code:

x = StringCom(x1,x2)

The function is returning so you just need catch the return value into a variable by using the name of the function and parameters.

I Would Recommend you to go through the link and learn VB Script

http://www.w3schools.com/vbscript/default.asp

Hope this is going to be helpful for you.

[Rashmi]

Thanks for the quick response.