Function Finde(DeineFile as string, Such as string) as String
F=freefile
Open DeinFile for Input as #f
If not eof(f)
  Do
      Line input#f, txt
      If Instr(txt,such)>0 then
         Finde=mid(Txt,Instr(txt,such)+len(such)+2)
         exit do
      end if
   loop until eof(f)
End if
close#f
end function

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)