A simple Google search would have thrown up thousands of relevant links, but this should get you started

Public Function OpenWordDoc()
Dim wrdApp As Object
Dim wrdDoc As Object
 
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Open("C:\myfile.doc")
End Function