SVWERWEIS einzelne Fundstellen mit Parameter

Function LJVERWEISt(strName As String, rngBereich As Range) As Variant
Dim rngAct As Range
Dim strErgebnis As String
Application.Volatile
For Each rngAct In rngBereich.Columns(1).Cells
If rngAct = strName Then
strErgebnis = strErgebnis & rngAct.Offset(0, 1) & ", "
End If
Next rngAct
LJVERWEISt = Left(strErgebnis, Len(strErgebnis))
End Function

Jetzt wäre es für mich viel besser, wenn ich der Funktion sagen könnte: nimm den ersten Treffer, den zweiten....., d.h. ein Parameter in der Funktion steuert der wievielte Treffer ausgegeben wird.
Heute sind die Parameter: 1. Suchkriterium 2. Bereich und in Zukunft sollte der 3. die Anzahl der Fundstelle sein.
Wer weiß Rat?
Vielen Dank, Gruß Lobby007