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

<code>Public Function GetLineCountFromTextFile(ByVal sFilename As String) As _
  Long
  Dim F As Integer
  Dim sInhalt As String
  Dim sLines() As String
  Dim lCount As Long
 
  F = FreeFile
  Open sFilename For Binary As #F
  sInhalt = Space$/(Lof(F))
  Get #F, , sInhalt
  Close #F
 
  sLines = Split(sInhalt, vbCrLf)
  GetLineCountFromTextFile = UBound(sLines) + 1
End Function</code>