While calling sub procedure its giving error

[Akhila]

Hi There,
I had written the following simple VB script.
while calling sub procedure its giving type mismatch with the line "msgbox "val is" & result"....where did I make the mistake?

Code:

Sub result(val) If val=0 Then msgbox "its zero" elseif val=1 then msgbox "its one" elseif val=2 then msgbox "its two" else msgbox"out of range" end if end sub sub getval() val3 = inputbox("enter the val") [color=#FF0000]msgbox "val is" & result(val3)[/color][b] End sub getval()

Thanks,
[/b]

[harishshenoy]

Hi ,

Sub procedure will not return any value , so you will not be able to call it and expect a return result out of it. You have to use the 'function' instead to return the value. U can give directly the 'function name' to return any value.

I have modified your code try out:

Code:

Function result(val) If val=0 Then result = "its zero" '**To return the value elseif val=1 then result = "its one" elseif val=2 then result = "its two" else result = "out of range" end if end Function sub getval() val3 = cint(inputbox("enter the val")) '***see below msgbox "val is " & result(val3) End sub call getval() '*****

***Here I have converted the input box entry to 'Cint' because VB script only uses a variable called 'Varient' , you have convert it to integer using 'cint'.
**Also i have assigned the 'msgbox' value directly to the function name to make your function returns some value.
**** You have to use 'call' statement while calling a 'sub' , but it is not mandatory in case of 'function' call.


Thanks,
Harish