Using file As System.IO.StreamReader = _
       New System.IO.StreamReader(ListFile, System.Text.Encoding.Default) 'ANSI
        Do
          str_to_add = file.ReadLine()
          If str_to_add Is Nothing Then Exit Do
          'далее следует элементарная обработка str_to_add и добавление результата в ListView
        Loop
      End Using

Public Class c_Text

  'Для представления текста в виде коллекции
  Private cText As New Collection

  Public Sub OpenText(ByVal path As String)
    'Открываем текст для использования как коллекции
    'Path - имя файла с текстом
    Try
      Using file As System.IO.StreamReader = _
       New System.IO.StreamReader(path, System.Text.Encoding.Default) 'ANSI либо BOM
        Dim line As String
        Do
          line = file.ReadLine()
          If line Is Nothing Then Exit Do
          cText.Add(line)
        Loop
      End Using
    Catch
    End Try
  End Sub

  Public ReadOnly Property count() As Integer
    Get
      'Получить количество строк
      Return cText.Count
    End Get
  End Property

  Public ReadOnly Property stroka(ByVal Index As Integer) As String
    Get
      'Получить строку по номеру
      Return cText(Index)
    End Get
  End Property

  Public Sub ClearText()
    'Очистить текст
    cText.Clear()
  End Sub

End Class

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim ctext As New c_Text
    ctext.OpenText("C:\444\50000test.txt")
    MsgBox(ctext.count) 'выводит 50000
    For i As Integer = 1 To 3 'выводит 3 первые строки
      MsgBox(ctext.stroka(i))
    Next
    ctext.ClearText()
    MsgBox(ctext.count) 'выводит 0
  End Sub

Public Class c_Text

  'Для представления текста в виде массива строк
  Private cText() As String

  Public Sub OpenText(ByVal path As String)
    'Открываем текст для использования как коллекции
    'Path - имя файла с текстом
    Try : cText = IO.File.ReadAllLines(path, System.Text.Encoding.Default) : Catch : End Try 'ANSI либо BOM
  End Sub

  Public ReadOnly Property count() As Integer
    Get
      'Получить количество строк
      Return cText.Count
    End Get
  End Property

  Public ReadOnly Property stroka(ByVal Index As Integer) As String
    Get
      'Получить строку по номеру
      Return cText(Index)
    End Get
  End Property

  Public Sub ClearText()
    'Очистить текст
    cText = Nothing
  End Sub

End Class