Ler Arquivo Texto

            Dim LerArquivo As System.IO.StreamReader = New System.IO.StreamReader(CaminhoArquivo & NomeArquivo, System.Text.Encoding.UTF7)
            Retorno = LerArquivo.ReadToEnd
            LerArquivo.Close()