like ...?

Dim get1 As Double
Dim get2 As Double
Dim get3 As Double

Sub MainTest()

Call TestFunct1(1, 2, 3)

Debug.Print get1
Debug.Print get2
Debug.Print get3


End Sub

Sub TestFunct1(X, Y, Z)

get1 = 1 * X
get2 = 2 * Y
get3 = 3 * Z

End Sub


"Jeff" wrote:

Hi,

I am trying to use a function (maybe it is technically a macro - I dont
know)- here is my problem.

The function has 3 "input" variables declared as doubles, and based on these
values the function assigns values to 3 output "variables". The output
variables are declared inside the function - so I just want to get them -
without declaring global variables.

So in the code below I want to get variables "get1 - get3"


Sub MainTest()
Dim get1 As Double
Dim get2 As Double
Dim get3 As Double

Call TestFunct1(1, 2, 3)

End Sub

Sub TestFunct1(X, Y, Z)
Dim var1 As Double
Dim var2 As Double
Dim var3 As Double

var1 = 1 * X
var2 = 2 * Y
var3 = 3 * Z

End Sub

Thanks for your help.