Return Values from a procedure

[Rich75]

Hi i am trying to use a function and return a value from
but for some reason it doesnt work.

s = ReturnVal(7)
Msgbox s 'This Message Box returns Null
Function ReturnVal
i = n
Do While n < 10
n = n + 1
s = s + 1
Loop
Msgbox s 'This Message Box returns 3
end Function

 

[PHV]

Try this:

s = ReturnVal(7)
Msgbox s 'This Message Box returns Null
Function ReturnVal(n)
i = n
Do While n < 10
   n = n + 1
   s = s + 1
Loop
Msgbox s 'This Message Box returns 3
ReturnVal=s
end Function


Hope This Help
PH.

 

[Rich75]

thats the one

thanks alot