Dim fnumber as Integer 
Dim fname as String 
Dim s as String

fnumber = FREEFILE
fname = "c:\demo.txt"

Open fname For Input As #fnumber
s = Input$(LOF(fnumber), fnumber)
Close #fnumber


Debug.Print s 'весь файлик целиком

Sub ReadFiles
   Dim fso, f1, ts, s
   Const ForReading =  1 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f1 = fso.CreateTextFile("c:\testfile.txt", True)
   ' Write a line.
   Response.Write "Writing file <br>"
   f1.WriteLine "Hello World"
   f1.WriteBlankLines( 1 )
   f1.Close
   ' Read the contents of the file.
   Response.Write "Reading file <br>"
   Set ts = fso.OpenTextFile("c:\testfile.txt", ForReading)
   s = ts.ReadLine
   Response.Write "File contents = '" & s & "'"
   ts.Close
End Sub

Dim fso As Scripting.FileSystemObject
Dim f As Scripting.TextStream

Set fso = New Scripting.FileSystemObject
Set f = fso.OpenTextFile("c:\test.txt", ForReading)
Do While Not f.AtEndOfStream
    Debug.Print f.ReadLine
Loop