analyzing text file line by line

Hello,

I have a txt file, of which I want to get back its lines line by line, and I also need to know, how many lines does it have.

I have this code:

Dim fName as Strinmg
Dim obj
Dim SingleLine
Set obj = CreateObject("Scripting.FileSystemObject")
fName= "c:\data\file.txt"
SingleLine = obj.OpenTextFile(filename, ForReading).Read(100)
Set obj = Nothing

But of course it is not exactly the one I need, I guess, I need to create a while statement, but I cannot find out, how.

Could anybody help me? All advices would be appreaciated