Salut

Il me semble d’ailleurs que tu te trouves dans une boucle infini.

i = 1
Do Until InputFile.atEndOfStream
i = i + 1
...