1: 2: 3: 4: 5: 6: 7: 8: 9:
Dim i As Integer Dim currentRow As String Using myreader As New FileIO.TextFieldParser("c:\temp\adam.txt") While Not myreader.EndOfData currentRow = myreader.ReadLine() i = i + 1 End While End Using