add reference-->microsoft.office.core

imports microsoft.office.introp							

       Private Sub loadword()
        Dim wd As New Word.Application
        Dim docu As Word.Document
        Dim newTemplate As Object = True
        Dim docType As Object = 0
        Dim isVisible As Object = True
        Dim filename As String = "C:/normal.doc"
        docu = wd.Documents.Add(filename, newTemplate, docType, isVisible)
        wd.Visible = True
        wd.Activate()
    End Sub