乱码怎么解决？

[ecjtuhr]

我用VB编写了个系统，其中有个功能是：从Word文档中读取数据到Richtextbox中，可是读出的却是乱码，我的代码如下：

RichTextBox1.FileName = App.Path & "\c++试卷\" & im(rst.Fields(1)) & ".doc"
Set MyDoc = MyWord.Documents.Open(RichTextBox1.FileName)
Set MyWord = Nothing

按照网友的答复，引用个word
并定义：
Dim wordname As String

wordname = CommonDialog1.FileName
Dim wapp As New Word.Application
Dim wdoc As Word.Document
Set wdoc = wapp.Documents.Open(FileName=wordname)
Set wapp = Nothing


可读出来的还是乱码啊？朋友们回复时教我怎么解决乱码问题，前提是我必须要从Word中读出数据到RichTextBox1中。
心急！亟盼回复！谢谢！
或QQ：572221876