Microsoft Word document information panel question

In the abscence of a response then to enable the question closure:

To display/remove the panel:
    Application.DisplayDocumentInformationPanel = True 'False

To Add Read a custom document property:
    Read
        myVar = activedocument.CustomDocumentProperties("WhatYouWantToCallTheField").value
    Set
        activedocument.CustomDocumentProperties.Add _
    Name:="WhatYouWantToCallTheField", LinkToContent:=False, Value:="What value you want the field to have", _
    Type:=msoPropertyTypeString

To set / read a builtindocumentproperty
    Set
        activedocument.BuiltInDocumentProperties("Author") = "ChrisB"
    Read
        myVar = activedocument.BuiltInDocumentProperties("Author").value

Chris