array in parameter

Hi!

I got a problem. when I'm trying to build an array of integers in a function, I have a message telling me that something of the left part of the function must return a variant or an object :/

here's the code

Function stock() As Integer()
ReDim stock(19)

For i = 0 To 19
stock(i) = Cells(i + 1, 1).Value
Next i

End Function

Sub affich(ByRef stock() As Integer)

For i = 0 To 19
MsgBox (stock()(i))
Next i

End Sub

Sub launcher()
Call affich(stock)

End Sub

Anyone can help me? :/