I dont understand the help ...............ParamArray intScores() As
Variant)...
How do you modify this example that...doesnt work :-(

Here, the function thirdsecond_pow does not work
Can you help me more?

thanks a lot!

Option Base 1
Function thirdsecond_pow(s As Variant)


Dim w(), q()
n = s.Rows.Count


ReDim w(n, 1), q(n, 1)


q = second_pow(s)
w = third_pow(q)


thirdsecond_pow = w


End Function


Function second_pow(s As Variant)


Dim w()
n = s.Rows.Count
ReDim w(n, 1)


For i = 1 To n
w(i, 1) = s(i) ^ 2
Next i


second_pow = w


End Function


Function third_pow(s As Variant)


Dim w()
n = s.Rows.Count


ReDim w(n, 1)
For i = 1 To n
w(i, 1) = s(i) ^ 3
Next i


third_pow = w


End Function


thank you