Not sure what you are asking, but it seems you want to get a count of lines in the file if I am correct...
Public Class Form1
Private strFile As String = "LOCATION OF FILE"
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Dim wFile As StreamReader
wFile = New StreamReader(strFile, FileMode.Open)
Dim count As Integer = 0 'Counter for rows that have something in it
Dim totalLines As Integer = 0 'Counter for the total lines in the file
Dim blankLines As Integer = 0 'Counter for the empty lines (optional)
While (wFile.Peek <> -1)
If wFile.ReadLine() = String.Empty Then
blankLines += 1 ' Add to blank line count
Else
count += 1 'Add to actual count data from a line
End If
totalLines += 1 'The actual total of lines
End While
wFile.Close()
End Sub
End Class
Here's a screenshot of my results from a text file I read...
On another note, when this file is loaded in Notepad++ I get the same results...