Array von Funktion an Sub übergeben

Sub stehen und nicht in der Funktion. Nur weiß ich grad nicht, wie man das Array an die 

Sub übergibt.
Hat jemand Lösungsvorschläge? Vielen Dank.
Grüße Christoph

Sub test()
spalte = 5
Worksheets("20102014").Cells(intaktuelleZeile, 5).Value = Kette1(spalte)
End Sub

Function Kette1(spalte As Integer) As String
Dim lngLastRow As Long, i As Long, n As Long
Dim myArray()
With Sheets("Quelle")
lngLastRow = .Cells(Rows.Count, spalte).End(xlUp).Row
n = 0
For i = 2 To lngLastRow
ReDim Preserve myArray(n)
myArray(n) = .Cells(i, spalte)
n = n + 1
Next i
    Sheets("20102014").Cells(1, 2) = Join(myArray(), vbCrLf)
End With
End Function