[Afon]

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 »

Спасибо большое. Это именно то, что я хотел.
Спасибо всем.