dim record as string
Open percorsodelfile For Input As #1
While Not EOF(1)
Line Input #1, record 'legge riga x riga

Wend
Close #1