codice:
    Open nomefile For Input As FreeFile
    Do While Not EOF(1)
        Line Input #1, var
    Loop
    Close #1