LER ARQUIVO TXT LINHA LINHA

Option Explicit On 
Option Strict On
Imports System
Imports System.IO
Public Class TextFromFile
    Private Const FILE_NAME As String = [Ô]MyFile.txt[Ô]
    Public Shared Sub Main()
        If Not File.Exists(FILE_NAME) Then
            Console.WriteLine([Ô]{0} não existe.[Ô], FILE_NAME)
            Return
        End If
        Using sr As StreamReader = File.OpenText(FILE_NAME)
            Dim input As String
            Dim Contador As Int32 = 0
            input = sr.ReadLine()
            While Not input Is Nothing
                Contador += 1
                Console.WriteLine(input)
                input = sr.ReadLine()
            End While
            Console.WriteLine([Ô]Fim de Arquivo[Ô])
            Console.WriteLine([Ô]Total de Linhas lidas: {0}[Ô],Contador)
            sr.Close()
        End Using
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sArquivo As String
        Dim sLinha As String
        Dim IDE() As String
        Dim reg_cnpj As String
        reg_cnpj = [Ô]33523633826[Ô]
        [ô]monta o arquivo
        sArquivo = My.Application.Info.DirectoryPath.ToString & [Ô]\TXT.txt[Ô]
        [ô]verificando se o arquivo existe:
        If File.Exists(sArquivo) = False Then
            MsgBox([Ô]Arquivo de dados 1-identificacao.txt, não encontrado ...[Ô], vbCritical)
            Exit Sub
        End If
        [ô]Dim FileHolder As FileInfo = New FileInfo(sArquivo)
        Using LerArquivo As StreamReader = File.OpenText(sArquivo)

            [ô]abre o arquivo
            Dim TXT As String
            TXT = LerArquivo.ReadToEnd
            If TXT.Length = 0 Then
                [ô]verificando se o arquivo está em branco:
                MsgBox([Ô]Arquivo de dados 1-identificacao.txt, está vazio ...[Ô], vbCritical)
                Exit Sub
            End If

            Dim inicio_array As Integer
            inicio_array = 0
            ReDim Preserve IDE(99999999)
            [ô]enquanto não chegar ao fim
            sLinha = [Ô][Ô]
            While Not sLinha Is Nothing

                [ô]pega a linha atual
                If inicio_array = 13 Then inicio_array = 14 : IDE(13) = reg_cnpj
                sLinha = LerArquivo.ReadLine()
                IDE(inicio_array) = sLinha
                MsgBox([Ô]Linha([Ô] & inicio_array & [Ô]): Texto([Ô] & LerArquivo.ReadLine & [Ô])[Ô])
                inicio_array += 1

            End While
        End Using
    End Sub