VB.Net อ่านข้อมูลจาก text file จะตัดบรรทัดที่เป็น Enter ออกทำไงค่ะ

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim aaa As Queue
        Dim lc As Integer = 0
        Dim strFilePath As String

        Dim aa As String
        strFilePath = Application.StartupPath + "\test.txt"
        If Not File.Exists(strFilePath) Then
            MsgBox("ไฟล์: " & strFilePath & _
             " ยังไม่ได้รับการดาวน์โหลดยัง กระบวนการเตรียมการผลิตจะถูกยกเลิก", _
            MsgBoxStyle.OkOnly, "ไม่มีไฟล์")
        End If
        Try
            Dim sr As StreamReader = New StreamReader(strFilePath)
            Dim LineStr As String = sr.ReadLine()
            While LineStr IsNot Nothing
                If (LineStr.Trim().Length > 0) Then 'ถ้าว่างมันจะไม่นับ
                    lc += 1
                End If
                LineStr = sr.ReadLine()
            End While

            MsgBox("มีทั้งหมด " & lc & " บรรทัด")
            sr.Close()
        Catch
            MsgBox("ไฟล์: ข้อผิดพลาดที่เกิดขึ้นในขณะที่อ่าน " & strFilePath & _
            ". กระบวนการเตรียมการผลิตจะถูกยกเลิก", MsgBoxStyle.OkOnly, "ไฟล์อ่านข้อผิดพลาด")
            lc = -1
        End Try
    End Sub
End Class