Extract custom UserDefinedProperties outlook filed in excel

Question

I\'ve been able to add an UserDefinedProperties in outlook based on the below code

   Sub AddStatusProperties()

  Dim objNamespace As NameSpace
  Dim objFold