Function CountLines(strFilename as string) as long
dim FF as long
Dim strTest as String
FF = freefile
CountLines = 0
open strFilename for input as #FF
  do until EOF(FF)
    line input #FF, strTest
    CountLines = CountLines +1  
  Loop
close #ff

AmountOfLines=CountLines("C:\myfile.txt")

Function CountLines(strFilename As String) As Long
  Dim fso As  FileSystemObject
  set fso = new  FileSystemObject

With fso.OpenTextFile(strFilename , ForReading, False)
     Do While Not .AtEndOfStream
       .ReadLine
       CountLines= CountLines+ 1
     Loop
end with
set fso = nothing
end function