' Vrne i-to pojavitev elementa x v vektorju vec
Function Poisci(vec As Range, x As Integer, i As Integer) As Integer
    Dim k As Integer                ' stevec elementov v vektorju vec
    k = 1                           ' prvi element ima indeks 1
    For Each c In vec               ' zanka po vseh celicah vektorja vec
        If c.Value = x Then         ' ce je vrednost celice enaka x
            If i = 1 Then           ' in ce je to iskana pojavitev tega elementa
                Poisci = k          ' nastavimo rezultat funkcije
                Exit Function       ' in prekinemo funkcijo
            Else                    ' sicer
                i = i - 1           ' od tod naprej iscemo (i-1)-vo pojavitev elementa x
            End If
        End If
        k = k + 1                   ' indeks naslednje celice je za 1 vecji
    Next c                          ' ponovimo zanko z naslednjo celico
    Poisci = 0                      ' ce elementa ne najdemo, vrnemo 0
End Function