Attribute VB_Name = "Module4"
Option Explicit

Function GetLinesIn(ByVal strFile As String)
On Error Resume Next
Dim Counter As Long
Dim TempStr As String
Counter = 0

Open strFile For Input As #1
    Do Until EOF(1)
        Line Input #1, TempStr
        Counter = Counter + 1
    Loop
Close #1

GetLinesIn = Counter
End Function