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

Please use code tags !

sub snb()
  open "E:\OF\example.txt" for input as #1
    sq=split(Input(LOF(1),#1),vbcrlf)
  close #1

  msbgox "Number of lines: " & ubound(sq)+1

  for j=0 to ubound(sq)
'     ---- inspect each line
  next
End Sub

Please use code Tags !!

that code :
reads the complete content of the file
splits the content using the end of line character
puts those separate lines into an array sq.

Use the help function (F1) of your VBEditor (F11)