CODIFICACAO DE ARQUIVO TXT PARA ANSI OU UNICODE

   [ô] abre um stream para escrita e cria um StreamWriter para implementar o stream

                Dim fs As New FileStream(SaveFile.FileName, FileMode.OpenOrCreate, FileAccess.Write)

                Dim m_streamWriter As New StreamWriter(fs)

                m_streamWriter.Flush()

                [ô] Escreve para o arquivo usando a classe StreamWriter

                m_streamWriter.BaseStream.Seek(0, SeekOrigin.Begin)

                [ô] escreve no controle richtextbox 

                m_streamWriter.Write(eExporte)

                [ô] fecha o arquivo

                m_streamWriter.Flush()

                m_streamWriter.Close()