Hacer una agenda telefonica que incluya el nombre, correo, cumpleaños y telefono

CÓDIGO
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim escribir As StreamWriter
escribir = File.CreateText("C:\Users\gerardo garza\Documents\datossecuenciales.txt")
escribir.Write(txtnombre.Text, txtcorreo.Text, txttelefono.Text, txtcumpleaños.Text)escribir.Close()
txtnombre.Text = ""
txtcorreo.Text = ""
txttelefono.Text = ""
txtcumpleaños.Text = ""
MsgBox("Texto Guardado")
Catch ex As Exception
MsgBox("No se pudo guardar el archivo")
End Try
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickTry
Dim adicionartexto As StreamWriter
adicionartexto = File.AppendText("C:\Users\gerardo garza\Documents\datossecuenciales.txt")
adicionartexto.WriteLine(txtnombre.Text + "" + txtcorreo.Text + "" + txttelefono.Text + "" + txttelefono.Text + "" + txtcumpleaños.Text)
adicionartexto.Close()
txtnombre.Text = ""
txtcorreo.Text = ""txttelefono.Text = ""
txtcumpleaños.Text = ""
Catch ex As Exception
MsgBox("Error al adicionar el archivo")
End Try
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try
FileOpen(1, "C:\Users\gerardo garza\Documents\datossecuenciales.txt", OpenMode.Input)
Dim línea As StringDo Until (EOF(1))
línea = LineInput(1)
txtlectura.Text = txtlectura.Text & línea & vbCrLf
Loop
FileClose(1)
Catch ex As Exception
MsgBox("No se pudo guardar el archivo")
End Try
End Sub
End Class



TABLA DE PROPIEDADES

OBJETO PROPIEDAD VALOR
labellabel1 name:lblnombre
caption:nombre

label label2 name:lblcorreo
caption:correo

label label3 name:lblcumpleaños
caption:cumpleaños

label label4 name:lbltelefonocaption:telefono

textbox text1 name:txtnombre

textbox text2 name:txtcorreo

textbox text3 name:txtcumpleaños

textbox text4 name:txttelefono

textbox text5 name:lectura

button button1 name:btnguardarcaption:guardar

button button2 name:btnleer
caption:leer

button button3 name:btnagregar
caption:agregar


texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivotexto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que medejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo
texto de relleno para que me dejen subir el archivo...