Организовать поиск в телефонном справочнике

Dim p As Boolean = False 'проверка на нажатие кнопки
    Private Sub Searchbtn_Click(sender As Object, e As EventArgs) Handles Searchbtn.Click
        If p = False Then
            Dim finded As New Windows.Forms.ListView 'создадим новый listview для добавления туда найденных результатов
            For i = 0 To ListView1.Items.Count - 1
                If ListView1.Items.Item(i).Text.ToLower = TextBox1.Text.ToLower Or ListView1.Items.Item(i).SubItems.Item(1).Text.ToLower = TextBox2.Text.ToLower Then 'если textbox1 соответствует графе name в listview или  если textbox2 соответствует графе phone в listview, то добавляем это в новый listview
                    finded.Items.Add(ListView1.Items.Item(i).Text).SubItems.Add(ListView1.Items.Item(i).SubItems.Item(1).Text)
                End If
            Next
            If finded.Items.Count > 0 Then ' если что-то нашли
                ListView1.Items.Clear()
                For i = 0 To finded.Items.Count - 1
                    ListView1.Items.Add(finded.Items.Item(i).Text).SubItems.Add(finded.Items.Item(i).SubItems.Item(1).Text) ' очищаем listview1 и пихаем в него все из finded
                Next
            Else
                MsgBox("Not found") ' если нет совпадений
                Exit Sub
            End If
 
            finded.Items.Clear()
            p = True
            Searchbtn.Text = "Clear"
        Else
            loadform() ' код из Form1_Load вынесен в процедуру loadform()
            p = False
            Searchbtn.Text = "Search"
        End If

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListView1.Items.Clear()
        Dim myCoolFileLines() As String = IO.File.ReadAllLines(testfile)
        For Each line As String In myCoolFileLines
           Dim lineArray() As String = line.Split(" ")
           Dim newItem As New ListViewItem(lineArray(0))
           newItem.SubItems.Add(lineArray(1))
           ListView1.Items.Add(newItem)
        Next
    End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        loadform()
    End Sub

Sub loadform()
        ListView1.Items.Clear()
        Dim myCoolFileLines() As String = IO.File.ReadAllLines(testfile)
        For Each line As String In myCoolFileLines
            Dim lineArray() As String = line.Split(" ")
            Dim newItem As New ListViewItem(lineArray(0))
            newItem.SubItems.Add(lineArray(1))
            ListView1.Items.Add(newItem)
        Next
    End Sub

New Windows.Forms.ListView()

New ListView

 Dim myCoolFileLines() As String = IO.File.ReadAllLines(testfile)

 Dim myCoolFileLines() As String = IO.File.ReadAllLines(testfile, System.Text.Encoding.Default)

Dim myWriter As New IO.StreamWriter(testfile)

Dim myWriter As New IO.StreamWriter(testfile, False, System.Text.Encoding.Default)