Codenstuff.com

Dim data As String = Nothing
                Using reader As StreamReader = New StreamReader(ReadFile)
                    Do While Not reader.EndOfStream
                        data &= vbNewLine & reader.ReadLine
                    Loop
                End Using

                For Each codePart As String In data.Split("|")
                    If (codePart.Trim).Length > 0 Then
'here it will be all transfered to split them in text boxen
End If

        Using OPF As OpenFileDialog = New OpenFileDialog()
            If (OPF.ShowDialog() = Windows.Forms.DialogResult.OK) Then
                For Each TextLine As String In IO.File.ReadAllText(OPF.FileName).Split("|")
                    If (TextLine.Trim().Length > 0) Then
                        'Do what ever you want with the line
                    End If
                Next
            End If
        End Using

For Each TextLine As String In IO.File.ReadAllText(OPF.FileName).Split("|")
                    If (TextLine.Trim().Length > 0) Then
                         AddTextbox(TextLine.Trim)
                         'Do what ever you want with the line
                    End If
                Next

Public Sub AddTextbox(ByVal text As String)
Dim index As Integer = 0
        Dim Array_ As TextBox() = New TextBox() {Me.e1, Me.e2, Me.e3}
Dim box As TextBox
        For Each box In Array_
            box.Text = text(index)
 index += 1
            Application.DoEvents()
        Next