Visual Basic.NET - Boton Abrir

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

My.Computer.FileSystem.WriteAllText(ruta, vbCrLf & "No. de orden: " & TextBox1.Text & " DPI: " & TextBox2.Text & " NOMBRE: " & TextBox3.Text & " TEL: " & TextBox4.Text & vbCrLf, True)

        MessageBox.Show("INFORMACION DEL PEDIDO GUARDADA")

Dim myValue As String = InputBox("Enter Value", "Enter Value", "Please Enter Value")

Dim lineaDeTexto as string = textbox1.text & ";" & textbox2.text & ";" & textbox3.text & ";" textbox3.text & vbcrlf

My.Computer.FileSystem.WriteAllText(ruta, lineaDeTexto, True)

Dim fileReader As System.IO.StreamReader

fileReader = My.Computer.FileSystem.OpenTextFileReader(ruta)

Dim Linea As String

while (not fileReader.endOfSteam)

   Linea = fileReader.ReadLine()

   dim registros as string () = linea.split(";") 'Esta linea va a separar los 4 datos en un arreglo de cadenas

   if registro(0) = textbox1.text then 'Si coincide el numero de orden almacenada, con la escrita en textbox1, trae los demas datos

      textbox2.text = registro(1)

      textbox3.text = registro(2)

      textbox4.text = registro(3)

   endif

end while

Dim fileReader As System.IO.StreamReader

        fileReader =

            My.Computer.FileSystem.OpenTextFileReader(ruta)

        Dim Linea As String

        While (Not fileReader.endOfSteam)

            Linea = fileReader.ReadLine()

            Dim registros As String() = Linea.Split(";")

            If registros(0) = TextBox1.Text Then

                TextBox2.Text = registros(1)

                TextBox3.Text = registros(2)

                TextBox4.Text = registros(3)

            End If

        End While

Imports System.IO