[Petya V4sechkin]

Код:

Set fso = CreateObject("Scripting.FileSystemObject")
Set txtStream = fso.OpenTextFile("C:\List.txt") ' Этот файл существует, то есть проверка наличия файла пропускается

V = ""
Do While Not txtStream.atEndOfStream And V <> "three"
  V = txtStream.ReadLine
  Text = Text & V & vbCrLf
Loop