A função abaixo está trazendo apenas um resultado. Gostaria que ela retornasse todos os resultados que estão na coluna. Obrigado

Function BuscaVertical(intervalo As Range, palavra As String) As Variant


Dim c As Object
Dim a
Dim posicao As Long

posicao = 0

For Each c In intervalo.Cells

If palavra = c.Value Then

a(posicao) = palavra

posicao = posicao + 1
End If


Next c


BuscaVertical = a
End Function