COMO DEVOLVER A LINHA CORRECTA EM ARQUIVO TXT

 [ô][ô][ô] <summary>
    [ô][ô][ô] Indica uma liha especifica de um arquivo de texto, onde se encontra a palavra a procurar
    [ô][ô][ô] </summary>
    Public Function Apontador(ByVal Nome_Ficheiro As String, ByVal Procura_String As String) As Long
        Dim Reader As System.IO.StreamReader
        Apontador = 0
        Reader = New IO.StreamReader(Nome_Ficheiro)
        Dim Ler_String As String
        Try
            While Reader.Peek <> -1
                Ler_String = Reader.ReadLine()
                If String.Compare(Ler_String, Procura_String, True) = 0 Then
                    Reader.Dispose()
                    Reader.Close()
                    Return Apontador
                End If

                Apontador = Apontador + 1
            End While
            Reader.Dispose()
            Reader.Close()
            Return False
        Catch ex As Exception
            MessageBox.Show([Ô]Erro no apontador : [Ô] & ex.Message, [Ô]Atenção:[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return False
        End Try
    End Function