[VB/makro] Problem z 'Selection.Find.Text'

Mam następujący problem:

Tworzę makro w VB dla Worda i napisałam kaki kod:

'...
    For i = 0 To ilosc
        Selection.Find.Execute
        If Selection.Find.Text = tel(i) Then 'jeśli znajdzie dany mumer to...
            With Selection.Find
                .Replacement.Text = naz(i) + " " + tel(i) '... dodaje do niego osobę, która ma ten numer
                .Forward = True
                .Wrap = wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
            End With
            Selection.Find.Execute Replace:=wdReplaceAll 'i robi to ze wszystkimi znalezionymi numerami pasującymi do naszego
        End If
    Next i
    'koniec pętli ;)

mam dwie tablice: tel - z telefonami oraz naz z nazwiskami ich właścicieli. Gdy do Worda wpiszę numer tel (jeden z tablicy) i uruchomię Makro to nic mi się nie zmienia. Wklejałem nawet kod w którym pisywałem dane numery (dla pewności że nie robię błędów) ale to też nic nie dało. Co robię źle??