Private Function Wert2_read()
 
' Wert 2 ist die Gesamtbewertung
' Hier wird auch der Wert 2 gesucht und aus der File ausgelesen
 
f = FreeFile
Open Text1.Text For Input As #f
If Not EOF(f) Then
  Do
      Line Input #f, txt
      If InStr(txt, Gesamtwert) > 0 Then
         Wert2_read = Mid(txt, InStr(txt, Gesamtwert) + Len(Gesamtwert) + 2)
         Exit Do
      End If
   Loop Until EOF(f)
End If
Close #f
Text3.Text = Wert2_read