Visual - Final

Suplir el texto del command 1:

Public Class Form

Dim ruta = My.Computer.FileSystem.SpecialDirectories.Desktop & "\agenda.txt"

Private Sub Button….

My.Computer.FileSystem.WriteAllText(ruta, vbCrlf & "Nombre: " & TextBox1.Text & "Telefono" & TextBox2.Text & vbCrlf, True)

Message.Show("Agenda")

End Sub

Suplir el código del command2:

Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("C:\Agenda.txt")
MsgBox(fileReader)