A simple Macro Help.

I want to assign custom properties to part file or assemblyfile base on the file name structure.
The file name is like 1234567890BasePlate.sldprt, which is 10 digitnumber plus part description.
So how can I assign the first 10 digit number to "PartNo" customproperties and assign the Base Plate ( the rest of the strings) as" Description" custom properties.

Thanks...SolidworksApi macros