Dim MonFichier as string
Dim ContenuLigne as string
MonFichier = "C:/Chemin/MonFichier.txt"
Open MonFichier For Input As #IndexFichier 'ouvre le fichier
While Not EOF(IndexFichier) '
Line Input #IndexFichier, ContenuLigne
....
Wend
Close #IndexFichier ' ferme le fichier