Программа об автомобилях: определить количество авто каждой марки, владельца самого старого авто

Public Class Form1
    Dim FIO, a_s, marc, nom, godv, n
    Dim info, A1, A2, A3, A4, A5, A6, DelInfo, PoisInfo
    Dim Mass(), MassMar()
    Dim nna
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Добавление нового владельца.
        FIO = InputBox("Введите Фамилию И. О. владельца: ", "Информация о владельце:")
        a_s = InputBox("Введите адрес владельца: ", "Информация о владельце:")
        marc = InputBox("Введите марку авто владельца: ", "Информация о владельце:")
        nom = InputBox("Введите номер авто владельца: ", "Информация о владельце:")
        godv = InputBox("Введите год выпуска авто владельца: ", "Информация о владельце:")
        My.Computer.FileSystem.WriteAllText(TextBox1.Text, FIO & vbTab & a_s & vbTab & marc & vbTab & nom & vbTab & godv & vbTab & vbCrLf, True)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Удаление владельца из файла (просто вписать Ф.И.О.)
        Info = ""
        Mass = IO.File.ReadAllLines(TextBox1.Text)
        DelInfo = InputBox("Введите имя человека чтобы удалить его:")
        For i = 0 To Mass.Count - 1 Step 1
            A1 = Mass(i)
            A5 = Split(A1, vbTab)(0)
            N = 0
            If A5 = DelInfo Then
                N = N + 1
            Else
                Info = Info & Mass(i) & vbCrLf
            End If
        Next
        My.Computer.FileSystem.WriteAllText(TextBox1.Text, info, False)
        MsgBox("Владелец удален!", MsgBoxStyle.Information, "Удалено!")
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Поиск
        info = ""
        Mass = IO.File.ReadAllLines(TextBox1.Text)
        DelInfo = InputBox("Введите имя человека:")
        For i = 0 To Mass.Count - 1 Step 1
            A5 = Mass(i)
            A1 = Split(A5, vbTab)(0)
            If A1 = DelInfo Then
                A2 = Split(A5, vbTab)(1)
                A3 = Split(A5, vbTab)(2)
                A4 = Split(A5, vbTab)(3)
                A5 = Split(A5, vbTab)(4)
                info = "Фамилия И. О. владельца: " & A1 & vbCrLf & " Город где проживает: " & A2 & vbCrLf & " Марка авто владельца: " & A3 & vbCrLf & " Номер авто: " & A4 & vbCrLf & " Год выпуска: " & A5 & vbCrLf
                Exit For
            End If
        Next
        RichTextBox1.Text = info
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'Самое старое авто.
        Mass = IO.File.ReadAllLines(TextBox1.Text)
        A5 = Mass(0)
        nna = Split(A5, vbTab)(4)
        For i = 1 To Mass.Count - 1 Step 1
            A5 = Mass(i)
            A1 = Split(A5, vbTab)(4)
            If nna > A1 Then
                nna = A1
            Else
                nna = nna
            End If
        Next
        info = ""
        Mass = IO.File.ReadAllLines(TextBox1.Text)
        PoisInfo = nna
        For i = 0 To Mass.Count - 1 Step 1
            A5 = Mass(i)
            A1 = Split(A5, vbTab)(4)
            If A1 = PoisInfo Then
                A2 = Split(A5, vbTab)(0)
                A3 = Split(A5, vbTab)(1)
                A4 = Split(A5, vbTab)(2)
                A5 = Split(A5, vbTab)(3)
                info = "Фамилия И. О. владельца: " & A2 & vbCrLf & " Город где проживает: " & A3 & vbCrLf & " Марка авто владельца: " & A4 & vbCrLf & " Номер авто: " & A5 & vbCrLf & " Год выпуска: " & nna & vbCrLf
                Exit For
            End If
        Next
        RichTextBox1.Text = info
    End Sub
End Class