Организация поиска в ListView - VB

Формулировка задачи:

Дан ListView, в нём 4 колонки. Нужно, вводя данные в ТехтВох осуществлять поиск по всему List'у, сравнивая TextBox и инфу из первого столбца. Вот мой вариант:

'Found - искомая строка
'Item - содержание строки в первом столбце
  For i = 1 To Length
  Item = Form1.ListView1.ListItems(i)
   If InStr(Item, Found) <> 0 Then
    ListView1.ListItems(i).Selected = True
    ' Здесь идёт обработка выделенного фрагмента
    С = False
   Exit For
   EndIf
  Next

По-моему ошибка во 2-ой строке, т.к. пременной Item присваивается неправильное значение.

Решение задачи: «Организация поиска в ListView»

textual
                            Листинг программы 
                        

                            Dim LI As ListItem
'Сначала ищем в первом столбце если не нашли то во всех остальных
'параметр lvwWhole точное совпадение
'параметр lvwPartial совпадение с любой частью
'пропущенный параметр индекс строки откуда начинать искать по умолчанию сначала
Set LI = Me.lvList.FindItem('что ищем', lvwText, , lvwWhole)
If LI Is Nothing Then
    Set LI = Me.lvList.FindItem('что ищем', lvwSubItem, , lvwPartial)
End If
                        