Есть ли лучший способ подсчета строк в текстовом файле?

Ниже то, что я использовал. Хотя это работает, моя программа зависает при попытке подсчитать довольно большой файл, скажем, 10 000 или более строк. Меньшие файлы запускаются в мгновение ока.

Есть ли лучший или, лучше сказать, более быстрый способ подсчета строк в текстовом файле?

Вот что я сейчас использую:

    Dim selectedItems = (From i In ListBox1.SelectedItems).ToArray()
    For Each selectedItem In selectedItems
        ListBox2.Items.Add(selectedItem)
        ListBox1.Items.Remove(selectedItem)

        Dim FileQty = selectedItem.ToString
        'reads the data file and returns the qty
        Dim intLines As Integer = 0
        'Dim sr As New IO.StreamReader(OpenFileDialog1.FileName)
        Dim sr As New IO.StreamReader(TextBox1_Path.Text + "\" + FileQty)
        Do While sr.Peek() >= 0
            TextBox1.Text += sr.ReadLine() & ControlChars.CrLf
            intLines += 1
        Loop
        ListBox6.Items.Add(intLines)
    Next