Visual Basic.NET - cargar lectura del fichero seleccionado listview

Private Sub MaListView_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MaListView.Click

    If MaListView.SelectedItems(0).SubItems(1).Text.ToUpper = ".TXT" Then

        Dim NombreDelArchivo As String = MaListView.SelectedItems(0).Text

        Dim Archivo As New System.IO.StreamReader(NombreDelArchivo)

        Dim Linea As String

        While Not Archivo.Peek = -1

            Linea = Archivo.ReadLine

            MaTextBox.AppendText(Linea & vbCr)

        End While

        Archivo.Close()

    End If

End Sub

' ... ... ...

TxtCamada.AppendText(Archivo.ReadLine() & vbCR)

' ... ... ...

If MaListView.SelectedItems(0).SubItems(1).Text.ToUpper = ".TXT" Then

For Each lvItem As ListViewItem In ListaArquivos.Items

    If lvItem.Checked = True Then

        '   If ListaArquivos.SelectedItems(0).SubItems(2).Text.ToUpper = ".TXT" Then

        Dim NombreDelArchivo As String = ListaArquivos.SelectedItems(0).Text

        Dim Archivo As New System.IO.StreamReader(NombreDelArchivo, System.Text.Encoding.UTF7)

        Dim Linea As String

        While Not Archivo.Peek = -1

            Linea = Archivo.ReadLine

            txtMensagem.AppendText(Linea & vbCr)

        End While

        Archivo.Close()

    End If

    Thread.Sleep(1000)

    Application.DoEvents()

    lvItem.Checked = False

    lvItem.Remove()

    'End If

Next

For Each L As Integer In MaListView.CheckedIndices

    MaListView.Items(L).Selected = True

    Dim NombreDelArchivo As String = MaListView.SelectedItems(0).Text

    Dim Archivo As New System.IO.StreamReader(NombreDelArchivo)

    Dim Linea As String

    While Not Archivo.Peek = -1

        Linea = Archivo.ReadLine

        MaTextBox.AppendText(Linea & vbCr)

    End While

    MaTextBox.AppendText(vbCr)

    Archivo.Close()

    MaListView.Items(L).Selected = False

Next