保存richtextbox的内容到文本文件，如何得到几个黑方块，请

保存richtextbox的内容到文本文件，怎么得到几个黑方块，请高手指点
Open   DataPath   &   "No "   +   LTrim(txtnum)   +   ".txt "   For   Output   As   #TempFile
        Print   #TempFile,   RichTextBox3.Text
'         Put   #TempFile,   ,   SaveBytes
        Close   TempFile

黑方块拷过来就变成     һһһ

------解决方案--------------------
RichTextBox3.Text 这里取出来的数据是怎么样的?


另外,RichTextBox本身有Save/Load File功能,没有特别要求就不要自己写了
------解决方案--------------------
应该是编码的问题
------解决方案--------------------
这个问题，跟网上流传的那个“联通”与“移动”的故事有关
先启动记事本，再通过“文件”菜单打开这个文件，并且要注意在对话框中将“编码”项选为ANSI，你会看到保存的内容就是“一一一”，不是问题，不需要解决
------解决方案--------------------
baidu一下 联通 移动 编码 烧焦的电池之类
RichTextBox里面多写几个字就没问题了
------解决方案--------------------
用RichTextBox的LoadFile方法加载这个文件，显示是完全正常的
只有用记事本打开的时候，才会出现问题。
觉得别扭就多写几个字，让记事本能正确判断编码
------解决方案--------------------
RichTextBox的LoadFile方法加载这个文件
------解决方案--------------------
如果黑方块出现在换行位置，就是编码问题UTF-8和UNICODE的转换问题