Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = OFD.FileName
            Dim sr As New IO.StreamReader(TextBox1.Text, _
              System.Text.Encoding.Default)
            Dim line, sline() As String
            Do
                line = sr.ReadLine
                If line = Nothing Then Exit Do
                sline = Split(line, "di_lieferant:")
                Try
                    TextBox2.Text = TextBox2.Text & "di_lieferant:" & sline(1) _
                      & vbCrLf
                Catch ex As Exception
                End Try
            Loop
        End If
End Sub