While calling sub procedure its giving error

[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