Написать программу, создающую новый файл, содержащий информацию

Public Class Form1
 
    Dim IFO, HomeAdd, Y, DelInfo, Info, N
    Dim A1, A2, A3, A4, A5, Mass()
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        IFO = InputBox("Введите Ф. И. О. однокурсника:", "Сбор информации:")
        HomeAdd = InputBox("Введите город где проживает однокурсник:", "Сбор информации:")
        Y = InputBox("Введите улицу где проживает однокурсник:", "Сбор информации:")
        My.Computer.FileSystem.WriteAllText(TextBox1.Text, IFO & vbTab & HomeAdd & vbTab & Y & 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("D:\1.txt")
        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)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.FileSystem.WriteAllText(TextBox1.Text, "", False)
            MsgBox("Все данные удалены!", MsgBoxStyle.Information, "Удалены!")
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Info = ""
        Mass = IO.File.ReadAllLines("D:\1.txt")
        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)
                Info = "Фамилия И. О: " & A1 & vbCrLf & " Город где проживает: " & A2 & vbCrLf & " Улица: " & A3 & vbCrLf
                Exit For
            End If
        Next
        RichTextBox1.Text = Info
    End Sub
 
End Class