Visual Basic.NET - Rellenar textbox

Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("S:\Personal.txt")

    MyReader.TextFieldType = FileIO.FieldType.Delimited

    MyReader.SetDelimiters(";")

    Dim currentRow As String()

    While Not MyReader.EndOfData

        Try

            currentRow = MyReader.ReadFields()

            Dim currentField As String

            For Each currentField In currentRow

                'PictureBox1.Image = CreateQRCode(TextBox1.Text, New Size(150, 150))

                'PrintDocument1.Print()

            Next