'1. Durchsuchen der Textdatei nach dem Betrag anhand des eingegeben Kontos
 
        Dim sr As New System.IO.StreamReader("Daten\import.txt")
        Dim curLine As String
 
        While sr.Peek() > -1
            curLine = sr.ReadLine()
            If curLine.Contains(" ") Then
                If curLine.Substring(0, curLine.IndexOf(" ")) = txt_konto1.Text _
                  Then
 
                    txt_betrag1.Text = curLine.Substring(curLine.IndexOf(" ") + _
                      1).Replace(" ", String.Empty)
                    Exit While
 
                Else
                    txt_betrag1.Text = ""
                End If
 
            End If
        End While
 
 
        '2. Durchsuchen der Textdatei nach dem Betrag anhand des eingegeben 
        ' Kontos
 
        While sr.Peek() > -1
            curLine = sr.ReadLine()
            If curLine.Contains(" ") Then
                If curLine.Substring(0, curLine.IndexOf(" ")) = txt_konto2.Text _
                  Then
 
                    txt_betrag2.Text = curLine.Substring(curLine.IndexOf(" ") + _
                      1).Replace(" ", String.Empty)
                    Exit While
 
                Else
                    txt_betrag2.Text = ""
                End If
 
            End If
        End While
        sr.Close()