Fichier Texte VBS lecture de lignes

Bonjour à tous, voici mon problème, je cherche à manipuler un fichier texte en VBS, et pour afficher les lignes j'utilise :

Line = objet.ReadLine
Do not objet.AtEndOfStream
          msg box Line
          Line = objet.ReadLine
Loop

Mon probleme, c'est que ça ne veut pas afficher la dernière ligne, sauf si je rajoute bien sur une ligne vide à la fin du fichier texte.

Merci pour votre aide.