Dim fso,f,a

Set fso = CreateObject("Scripting.FileSystemObject")

Set f=fso.OpenTextFile("D:\test.txt",1)

DO While f.AtEndOfStream <> True

 a=f.ReadLine 

 msgbox a

loop

10899