Custom Property based on description of part?

I am looking to find a macro to read the custom property "description"

then add a new custom property "part type"

then populate "part type" with a select value from "description"

Example:

-add custom property "part type"

-if "description" contains "bracket" then make value of "part type" = bracket

-if "description" contains "tower" then make value of "part type" = tower

-if not them make value of "part type" = (nothing)

the object would be to fill out this field with (1 of 10) or so keywords based on what is in the part description field

existing conditions:

description will always be filled out already

part type may or may not be there already.

SolidworksApi macros