Поиск в диапазоне определенного текста но с разным окончанием

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста как исправить код ниже (vba excel 2003), чтобы он выполнял следующее: искал в диапазоне "Range("A1:A" & iPos)" фразу "Пример предложения на конце которого 15210 и далее любые символы или буквы"?
Заранее спасибо!

Dim r As Range
   Dim i1 As Long
   Dim i2 As Long
   For Each r In Sheets("Лист1").Range("A1:A" & iPos)
      If r = "Пример предложения на конце которого 15210*" Then
         i1 = r.Row
         i2 = r.Offset(1).Row - 1
      End If
   Next

[ольгаг]

Задача решена так:

   Dim r As Range
   Dim i1 As Long
   Dim i2 As Long
   For Each r In Sheets("Лист1").Range("A1:A" & iPos)
   If r Like "Пример предложения на конце которого 15210*" Then
         i1 = r.Row
         i2 = r.Offset(1).Row - 1
      End If
   Next

Подскажите пожалуйста, насколько это будет корректно работать?
Спасибо!