Append "Approved" to Document Name

Hi Team,

I'm trying to create a script that will update the Document Name property of an object when the document hits a particular state in my workflow. Basically appending "Approved" to the end of the name.

I cannot get it to update at all, what am I missing?

Thanks in advance!

Option Explicit

Dim DocName, newDocName
DocName = PropertyValues.SearchForProperty(1130).TypedValue.DisplayValue


newDocName = DocName & " Approved"
PropertyValues.SearchForProperty(1130).TypedValue.SetValue MFDatatypeText, newDocName