dear all

how can i build a function that can return 3 values...

for e.g.

public function r3v(xx as integer, yy as integer)as integer

r3v=yy
r3v=xx

end function

hom can i????

You could return an array:

public function r3v(xx as integer, yy as integer)as integer()
   Dim x(2) As Integer

   x(0) = yy
   x(1) = xx
   x(2) = yy+xx

   r3v = x
End Function

then you call it like this:

Dim ReturnArray() As Integer
ReturnArray() = c3v(99, 100)
For i = 0 To Ubound(ReturnArray)
    Debug.Print ReturnArray(i)
Next

Or you could just add extra ByRef parameters to your function and modify them inside the function.

instead of a function, create a method and declare the output variables byRef

public/private sub MySub(byval in1, byval in2,... byref out1, byref out2,...)

all the byval (by value) are [in] parameters (that is, they cannot be changed inside MySub, actually they can but when the sub returns they are left the same), and all the byref (by reference) are [out] parameters that can be modified

Marco