Che errore ti da?
Usa Close #1 per chiudere il file se è l'unico file che apri.
Oppure usa
codice:
dim numeroFile as Freefile
open "file.dat" for input as numerofile
do while not eof(1)
   line input, dati
   if dati = 3 then
     'fai quello che vuoi
   end if
loop
close numerofile