Поиск текста в текстовом файле и добавление новой строки, если искомого текста не существует

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Pu As String = "T1.txt" 'путь и имя вашего .тхт файла 
        Dim Arr(), A, d(2) As String
        Dim Col As New List(Of String)
 
        Try
            If IO.File.Exists(Pu) Then
                Arr = IO.File.ReadAllLines(Pu, System.Text.Encoding.Default) ' считываем файл в массив
            Else
                MsgBox("Файла не существует")
                Exit Sub
            End If
            If TextBox1.Text = "" Then
                MsgBox("Введите ФИО")
                Exit Sub
            End If
            A = TextBox1.Text
            For i = 0 To UBound(Arr)
                d = Strings.Split(Arr(i), "|")
                If A = d(1) Then
                    MsgBox(i + 1 & ")  " & d(0)) ' если запись есть выводим сообщение
                    Exit Sub
                End If
            Next
            'если нет записи ,добавляем ее
            TextBox1.Clear()
            TextBox1.Text = Now & "|" & A
            For Each A2 As String In Arr
                Col.Add(A2) 'заполняем коллекцию из массива
            Next
            Col.Add(TextBox1.Text) 'добавляем в коллекцию новую запись
            IO.File.WriteAllLines(Pu, Col, System.Text.Encoding.Default) 'перезаписываем файл
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    findRow(TextBox1.Text, Path.Combine(Application.StartupPath, "tst.txt"))
End Sub
Private Sub findRow(ByVal strData As String, ByVal fPath As String)
    Dim rws() As String = File.ReadAllLines(fPath, System.Text.Encoding.UTF8)
    Dim frw = From r In rws Where r = strData Select Array.IndexOf(rws, r)
    If frw.Count = 0 Then
        File.AppendAllLines(fPath, {strData}, System.Text.Encoding.UTF8)
    Else
        MsgBox(strData & " RowIndex=" & frw(0).ToString)
    End If
End Sub

Public Class Form1
    Dim MassivText(), MassivFIO() As String
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ' Это так если надо чтоб не изменяли textBox2 ручками когда фокус на нем
        'TextBox2.ReadOnly = True
        'TextBox2.BackColor = Color.White
        'TextBox2.ForeColor = Color.Black
        Try
            TextBox2.AppendText(My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\TextFile.txt", System.Text.Encoding.Default))
            FIO()
        Catch ex As Exception
            MsgBox("Файла НЕТ")
        End Try
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If MassivFIO.Contains(TextBox1.Text) Then _
            MsgBox("У вас есть запись в строке " & Array.IndexOf(MassivFIO, TextBox1.Text) + 1 & _
                " " & MassivText(Array.IndexOf(MassivFIO, TextBox1.Text))) : Exit Sub
 
        TextBox2.AppendText(Now.ToShortDateString & " " & Now.ToLongTimeString & "|" & TextBox1.Text & vbCrLf)
        IO.File.WriteAllText(Application.StartupPath & "\TextFile.txt", TextBox2.Text, System.Text.Encoding.Default)
        FIO()
    End Sub
    Private Sub FIO()
        If UBound(MassivText) > 0 Then
            MassivText = IO.File.ReadAllLines(Application.StartupPath & "\TextFile.txt", System.Text.Encoding.Default)
            ReDim MassivFIO(UBound(MassivText))
            For a = 0 To UBound(MassivText)
                Dim FIO() As String = Split(MassivText(a), "|")
                MassivFIO(a) = FIO(1)
            Next
        End If
    End Sub
End Class

Private Sub findRow(ByVal strData As String, ByVal fPath As String)
    Dim rws() As String = File.ReadAllLines(fPath, System.Text.Encoding.UTF8)
    Dim frw = From r In rws Where r.Contains(strData) Select Array.IndexOf(rws, r)
    If frw.Count = 0 Then
        File.AppendAllLines(fPath, {Now.ToString & "|" & strData}, System.Text.Encoding.UTF8)
    Else
        MsgBox(rws(frw(0)) & " RowIndex=" & frw(0).ToString)
    End If
End Sub

Public Class Form1
    Dim MassivText(), MassivFIO() As String
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ' Это так если надо чтоб не изменяли textBox2 ручками когда фокус на нем
        'TextBox2.ReadOnly = True
        'TextBox2.BackColor = Color.White
        'TextBox2.ForeColor = Color.Black
        Try
            MassivText = IO.File.ReadAllLines(Application.StartupPath & "\TextFile.txt", System.Text.Encoding.Default)
            TextBox2.AppendText(My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\TextFile.txt", System.Text.Encoding.Default))
            FIO()
        Catch ex As Exception
            MsgBox("Файла НЕТ")
        End Try
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then Exit Sub
        If MassivFIO.Contains(TextBox1.Text) Then _
            MsgBox("У вас есть запись в строке " & Array.IndexOf(MassivFIO, TextBox1.Text) + 1 & _
                " " & MassivText(Array.IndexOf(MassivFIO, TextBox1.Text))) : Exit Sub
 
        TextBox2.AppendText(Now.ToShortDateString & " " & Now.ToLongTimeString & "|" & TextBox1.Text & vbCrLf)
        IO.File.WriteAllText(Application.StartupPath & "\TextFile.txt", TextBox2.Text, System.Text.Encoding.Default)
        MassivText = IO.File.ReadAllLines(Application.StartupPath & "\TextFile.txt", System.Text.Encoding.Default)
        FIO()
    End Sub
    Private Sub FIO()
        If UBound(MassivText).ToString > 0 Then
            ReDim MassivFIO(UBound(MassivText))
            For a = 0 To UBound(MassivText)
                Dim FIO() As String = Split(MassivText(a), "|")
                MassivFIO(a) = FIO(1)
            Next
        End If
    End Sub
End Class