Visual Basic.NET - Guardar y Abrir Archivos (de texbox a .txt y .txt a textbox)

Private Function LeerLineaTXT(ByVal RutaArchivoTXT As String, ByVal NumeroLinea As Long) As String

        	Dim Lines() As String = {String.Empty}

        	Dim Line_Length As Long = 0

        	Try

            	Lines = IO.File.ReadAllLines(RutaArchivoTXT)

            	Line_Length = Lines.LongLength - 1

            	Return Lines(NumeroLinea - 1)

        Catch ex As Exception

            	MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")

        Finally

            	Lines = Nothing

            	Line_Length = Nothing

        End Try

        	Return Nothing

    	End Function

Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("Ruta del archivo\archivo.txt")

   MyReader.TextFieldType = FileIO.FieldType.Delimited

   MyReader.SetDelimiters(";")        'Separador del archivo de texto, en este caso punto y coma

   While Not MyReader.EndOfData ' Mientras no sea el final del archivo

 currentRow = MyReader.ReadFields()  'esto llenara el string() con las posiciones que contenga el .txt

Nombre.Text = currentRow(0).toString()

Paterno.Text = currentRow(1).toString()

Materno.Text = CurrentRow(2).toString()

Cuenta.Text = CurrentRow(3).toString() 'Y asi sigues hasta completar todos los controles.

End While

End Using