Faila nolasīšana ar Visual Basic palīdzību

Savajadzējās uztaisīt procedūru ar kuru varam nolasīt failu (faila rindas) ar VB palīdzību.
Tad nu šeit kauč kas ir sanācis:

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Myfile = FSO.OpenTextFile(filename, 1)

Do While Myfile.AtEndOfStream <> True
   TextLine = Myfile.ReadLine
   Debug.Print "line : " & TextLine
Loop

Myfile.Close
Set Myfile = Nothing
Set FSO = Nothing