Como hacer que el buscarv me devuelva el 2° valor de mi lista

Me podría decir cuando un deporte se considera olímpico

Ahora sí, lo prometido es deuda, dejo el código de la función (que deberían colocar en un módulo del archivo en cuestión).

Function buscarEnesimo(stCriterio As String, rLista As Range, Col As Integer, N As Integer)
'Funciona como el Buscarv solo que devuelve el eNesimo elemento
'que cumple la condicion y se
'desplaza Col columnas hacia la derecha (negativo para la
'izquierda y cero la columna actual)
Dim rCiclo As Range, i As Integer
i = 0
For Each rCiclo In rLista
    If rCiclo.Value = stCriterio Then
        i = i + 1
        If i = N Then
            buscarEnesimo = rCiclo.Offset(0, Col)
            Set rCiclo = Nothing
            Exit Function
        End If
    End If
Next rCiclo
Set rCiclo = Nothing
buscarEnesimo = ""
End Function