Hi,
Try
'Create the Word Object
Dim objWord As Word.Application
Dim objDocContent As Word.Range
Dim sFileName as String
sFileName = App.Path & "\" & "Test.doc"
Set objWord = New Word.Application
'Use to show or hide Word from the users view
objWord.Visible = True
'Open the Document
objWord.Documents.Open sFileName
'Get the contents
Set objDocContent = objWord.ActiveDocument.Content
'Put the contents into a textbox
Text1.text = objDocContent
'Quit Word
objWord.Quit
'Destroy the object
Set objWord = Nothing