Макрос на внесение свойств документа

Добрый вечер. Нужен макрос который создает или изменяет (если свойство есть)
свойство документа. Проблема в том что если свойство уже есть, то повторно внести его не могу, пишет ошибку.

Исходный макрос на добавление. но срабатывает 1 раз пока нет этого свойства.
   
    With ActiveDocument.CustomDocumentProperties
        .Add Name:="Complete", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:="111"
        End With

Нужно добавить проверку свойства на его наличие. Как сделать не пойму.

Private Sub DocumentProperties()
    If ActiveDocument.CustomDocumentProperties("Complete") = "" Then
    ActiveDocument.CustomDocumentProperties("Complete").Delete
    End If
        With ActiveDocument.CustomDocumentProperties
        .Add Name:="Complete", _
            LinkToContent:=False, _
            Type:=msoPropertyTypeString, _
            Value:="111"
        End With
   
End Sub