List.1 clear
..
..
..
Line Input #f, txt
      If InStr(txt, Gesamtwert) > 0 Then
         Wert2_read = Mid(txt, InStr(txt, Gesamtwert) + Len(Gesamtwert) + 2)
         'Exit Do
         List1. additem wert2_read
      End If
   Loop Until EOF(f)
....

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)