<code>Public Function FileLineCount(ByVal sFilename As String) As Long
  Dim F As Integer
  Dim LineCount As Long
  Dim sTemp As String
 
  F = FreeFile
  Open sFilename For Input As #F
  While Not Eof(F)
    LineCount = LineCount + 1
    Line Input #F, sTemp
  Wend
  Close #F
 
  FileLineCount = LineCount
End Function</code>