Этот код будет читать строку из текстового файла:

set file = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\number.txt", 1)
text = file.ReadLine
MsgBox text

Как я могу заставить его читать несколько раз одну строку за другой из одного и того же файла? Я думаю, я должен использовать цикл здесь, верно? Мне нужно, чтобы он прочитал первую строку из файла на первой итерации, вторую строку на второй итерации, третью на третьей и т. Д., Пока все строки не будут прочитаны. Как я могу это сделать?

Важное дополнение: мне нужен код для работы с каждой строкой один за другим - не все сразу!