縦方向のセル内容を配列に格納する

Function getCellArray(COL As String) As Variant
    Dim ary(50) As Variant
    Dim ite As Integer
    For ite = 0 To Worksheets("SheetName").Cells(Rows.count, COL).End(xlUp).row
        ary(ite) = Worksheets("SheetName").Range(COL & ite + 1).Value
    Next ite
    getCellArray = ary    
End Function

動的な配列は扱えないことは無いみたいなんだけど、まだ使い方がよくわからない。ＴＯＤＯです。