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