Função pode devolver um intervalo de valores ao invés de um valor só?

Eu estou tentando escrever uma função que devolve um intervalo ao invés de apenas um valor. Eu pesquisei como eu faço pra declarar um auxiliar matricial, mas não sei o que precisa ser feito além disso pra função funcionar

Function fnResumoPOS(pIntervaloValores As Range, pIntervaloCriterio As Range, pCriterio As String) As Currency

    Dim auxiliar(1 To 360) As Currency
    Dim inicial As Integer
    For inicial = 1 To 360
        auxiliar(inicial) = 0
    Next
    For contador = 1 To pIntervaloValores.Count
        If pintervalocritério.Cells(contador, 1) <> pCriterio Then
            auxiliar(contador) = pIntervaloValores.Cells(contador, 1)
        End If
    Next

    fnResumoPOS = auxiliar

End Function