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