codice:
Dim numerofile As Integer
numerofile = FreeFile

Open "percorsofile" For Input As numerofile

Do While Not EOF(numerofile)

Line Input #numerofile, datitemp 'leggo una riga dal file e la salvo nella variabile datitemp

loop
close #numerofile