Imports System.Drawing
Imports System.Drawing.Image
Imports System.IO
Imports Microsoft.Office.Interop
Imports Word = Microsoft.Office.Interop.Word
Imports System.Runtime.InteropServices
Dim wd As New Word.Application
With wd
.Documents.Open(OpenFileDialog1.FileName)
.Selection.WholeStory()
.Selection.Copy()
rtbDoc.Paste()
.Quit()
End With
wd = Nothing