Dim sr As New StreamReader("C:\Datenbank\database.txt", _
  system.Text.Encoding.Default)
				Do
					Temp = sr.ReadLine()
					If Temp = "<KDN>" & txtKundennummer.text Then
						sKDN= 	temp.Remove(0,5)
						sANR = sr.ReadLine().Remove(0,5)
						sFIRNA = sr.ReadLine().Remove(0,7)
						sSTR= sr.ReadLine().Remove(0,5)
						sOPL = sr.ReadLine().Remove(0,5)
						sTEV = sr.ReadLine().Remove(0,5)
						sr.Close()
						Treffer = True
					Else
						Treffer = False
					End If
				Loop Until Treffer = True