If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK And OpenFileDialog1.FileName.Length > 0 Then
Dim word As Microsoft.Office.Interop.Word.Application
Dim doc As Microsoft.Office.Interop.Word.Document
Dim content As String
word = New Microsoft.Office.Interop.Word.Application()
doc = word.Documents.Open(OpenFileDialog1.FileName)
content = doc.Content.Text '<-----
word.Quit()