Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
 
        With OpenFileDialog1
            .InitialDirectory = "C:\Test\"
            .CheckFileExists = True
            .Filter = "Datendatei |*.txt"
 
        End With
 
        If OpenFileDialog1.ShowDialog = _
           Windows.Forms.DialogResult.Cancel Then Exit Sub
 
        Dim flines() As String = IO.File.ReadAllLines(OpenFileDialog1.FileName)
 
        For i As Integer = 0 To flines.Count - 1
            Dim parts() As String = flines(i).Split("="c)
 
            If parts(0) = "Zeile1" Then TextBox1.Text = parts(1)
            If parts(0) = "Zeile2" Then TextBox2.Text = parts(1)
            If parts(0) = "Zeile3" Then TextBox3.Text = parts(1)
            If parts(0) = "Zeile4" Then TextBox4.Text = parts(1)
 
        Next i
 
 
    End Sub