dim zahl,suchen,temp,trennzeichenas string
dim i as integer
trennzeichen = "="
suchen = "Acrobat"
open "deinedatei.txt" for input as #1
 do 
 line input #1,temp
 if instr(1,suchen,temp)<>0 then
  i=1
  zahl=""
   do until mid(temp,i,1)=trennzeichen
   zahl=zahl+mid(temp,i,1)
   inc(i)
  loop
  label1.caption = zahl
 end if
loop until eof(1)
close #1