Scrivi un ciclo di lettura dal file in una stringa L

codice:
Do While Not Eof(intfile)
   Line Input #intfile, L

   ' ...
Loop
Al posto dei puntini inserisci il codice per scrivere nel file1.

Non ho capito bene se dopo aver scritto una riga, il file1 deve essere elaborato ... in questo caso, devi chiudere il file1 e attendere nel ciclo che venga elaborato ... ma su questo punto non hai dato le informazioni necessarie per poterti dare una indicazione piu' precisa.