Read txt file line by line

Sub ExampleReadLineByLine()
    Dim FileID As Integer
    Dim strOneLine As String
    FileID = FreeFile
    Open "e:\somefile.txt" For Input As #FileID
    Do Until EOF(FileID)
        Line Input #FileID, strOneLine
        Debug.Print strOneLine
    Loop
    Close #FileID
End Sub

Private Sub GetRecordFromTextFile(strFileName As String) 
  On Error GoTo ErrHandler
  Dim fso As FileSystemObject
  Dim TextStream As TextStream
  Dim lRows As Long, sLine As String
  'Create object by using FSO
  Set fso = CreateObject("Scripting.FileSystemObject")
  'Open file, put the content to TextStream
  Set TextStream = fso.OpenTextFile(strFileName)
  'Loop starts here...
  Do While TextStream.AtEndOfStream = False
    'Read each line... here you can get the string each line
    'its up to you, whether you want to process this string
    'from sLine variable ... :-)
    sLine = TextStream.ReadLine
    'Update the counter
    lRows = lRows + 1 
  Loop
  'Dont forget to close the TextStream after finish
  TextStream.Close
  'If you want to get the rows from text file, get it from lRows
   Exit Sub
ErrHandler:
  MsgBox Err.Number & " - " & _
         Err.Description, _
         vbCritical, _
         "Error GetRecordFromTextFile"
End Sub