Excel VBAでSubプロシージャとFunctionプロシージャの間で配列を渡す方法

Sub main()
  Dim Ar_DB() As String

  Ar_DB = GetArray()

End Sub

Function GetArray()

  Dim Ar() As String
  Dim i As Integer

  For i = 0 To 10
    ReDim Preserve Ar(i)
    Ar(i) = "入力データ" & i
  Next i

  GetArray = Ar

End Function