Dim o As New Microsoft.Office.Interop.Word.Application
        o.Visible = False
        o.Documents.Open(IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.Desktop, "test.doc"))


        Dim parole As New List(Of String)
        For i As Integer = 1 To o.ActiveDocument.Words.Count
            If o.ActiveDocument.Words(i).Text = "[" Then
                parole.Add(o.ActiveDocument.Words(i + 1).Text)
            End If
        Next

        o.NormalTemplate.Saved = True
        o.Quit()