codice:
Open "c:\riordino.csv" For Input As #1
    Do While Not EOF(1)
        Line Input #1, S