乱码怎么办？怎么解决？

Question

我用VB编写了个系统，其中有个功能是：从Word文档中读取数据到Richtextbox中，可是读出的却是乱码，我的代码如下：
RichTextBox1.FileName = App.Path & "\c++试卷\" & rim(rst.Fields(1)) & ".doc"
Open RichTextBox1.FileName For Input As #1
Do While Not EOF(1)
s1 = Input(1, #1)
RichTextBox1.Text = RichTextBox1.Text + s1
Loop
Close #1请问如何解决啊，Vb高手们，怎么解决这个问题？
本人在线等候，亟盼回复！
QQ：572221876

Answer 1

richtextbox控件只能读去两种类型格式的文件，一种是.txt；一种是.rtf；所以你导入进来的word是.doc格式的，就会出现乱码。
楼主，你转换一下文件格式，再设置richtextbox，就能读出了。