Problemas para crear funcion con el metodo FIND

[mpatzy]

Necesito de sus conocimientos en lo referido en macros en Excel, he tratado de usar el metodo FIND que es usado para buscar en una hoja de excel, la misma empleandola como funcion y solo me devuelve un solo valor, pese a los varios intentos de que me devuelda la siguiente cadena existente.
El mismo codigo usado como procedimiento funciona de maravilla pero eso hace que el mismo sea usado para valores fijos. Adjunto la secuencia de codigo que he empleado:

Function BuscarVal(ValorBuscado, Matriz As Range, Posicion)
Cont = 1
ValBus = ""
With Matriz
Set c = .Find(ValorBuscado, LookIn:=xlValues)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
If Cont = Posicion Then
Fil = c.Row
Col = c.Column
ValBus = .Cells(Fil, Col).Value
Else
Cont = Cont + 1
Set c = .FindNext(c) '<- En este punto pierde la informacion y se sale
End If
Loop While Not c Is Nothing And c.Address <> FirstAddress
End If
End With
BuscarVal = ValBus
End Function

Agradesco de antemano su ayuda.