Comefoadaprire undocx in vbbasic

Ioho ilseguente codice che non funziona

  OpenFileDialog1.DefaultExt = "*.docx"
        OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.CurrentDirectory
        Dim nome = OpenFileDialog1.FileName



        Dim objword As New Microsoft.Office.Interop.Word.Application

        Dim filename As String = nome
        Dim percorso As String = nome
        Dim DisplayAlerts As Word.WdAlertLevel.wdAlertsNone
        Dim officeVisible = False
        Dim office.Documents.Add(CStr(filename))