Вывести часть данных из текстового файла в DataGridView, и при выборе записи - заполнять текстовые поля

Public Class UsersInfo
    Public Property No As UInteger
    Public Property FIO As String
    Public Property Post As String
    Public Property DT As Date
    Public Property City As String
End Class

Function ParseString(ByVal STR As String) As UsersInfo
        Dim Result As New UsersInfo
        Dim TMP() As String = Split(STR, "-")
        Dim No As UInteger = CUInt(TMP(0))
        Result.No = No
        Dim TMP2() As String = Split(TMP(1), " ")
        Result.FIO = TMP2(0) & " " & TMP2(1)
        Result.Post = TMP2(2)
        Result.DT = CDate(TMP2(3))
        Result.City = TMP2(4)
        Return Result
    End Function

   Dim source() As String = IO.File.ReadAllLines("Data.txt", System.Text.Encoding.UTF8)
        For i = 0 To source.Count - 1
            If source(i).Length < 10 Then Continue For
            Dim Info As UsersInfo = ParseString(source(i))
            AllUsersList.Add(Info)
            DataGridView1.Rows.Add({Info.No, Info.FIO})
        Next

   Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
         If e.RowIndex >= 0 Then
            TextBox1.Text = AllUsersList(e.RowIndex).Post
            TextBox2.Text = AllUsersList(e.RowIndex).DT
            TextBox3.Text = AllUsersList(e.RowIndex).City
        End If
    End Sub

 Function FindInfo(ByVal No As UInteger) As UsersInfo
        For i = 0 To AllUsersList.Count - 1
            If AllUsersList(i).No = No Then Return AllUsersList(i)
        Next
        Return Nothing
    End Function

Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex >= 0 Then
            Dim Info As UsersInfo = FindInfo(CUInt(DataGridView1.Rows(e.RowIndex).Cells(0).Value))
            If IsNothing(Info) = False Then
                TextBox1.Text = Info.Post
                TextBox2.Text = Info.DT
                TextBox3.Text = Info.City
            End If
        End If
    End Sub

Public Class Form1
 
    Dim AllUsersList As New System.ComponentModel.BindingList(Of UsersInfo)
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TextBox1.DataBindings.Add("Text", AllUsersList, "Post")
        TextBox2.DataBindings.Add("Text", AllUsersList, "DT")
        TextBox3.DataBindings.Add("Text", AllUsersList, "City")
    End Sub
 
    Private Sub LoadButton_Click(sender As System.Object, e As System.EventArgs) Handles LoadButton.Click
        Dim source() As String = IO.File.ReadAllLines("Data.txt", System.Text.Encoding.Default)
        For i = 0 To source.Count - 1
            If source(i).Length < 10 Then Continue For
            Dim Info As UsersInfo = ParseString(source(i))
            AllUsersList.Add(Info)
        Next
        DataGridView1.DataSource = AllUsersList
    End Sub
 
    Function ParseString(ByVal STR As String) As UsersInfo
        Dim Result As New UsersInfo
        Dim TMP() As String = Split(STR, "-")
        Dim No As UInteger = CUInt(TMP(0))
        Result.No = No
        Dim TMP2() As String = Split(TMP(1), " ")
        Result.FIO = TMP2(0) & " " & TMP2(1)
        Result.Post = TMP2(2)
        Result.DT = CDate(TMP2(3))
        Result.City = TMP2(4)
        Return Result
    End Function
 
End Class