VBA macro to create a chain sprocket

Can anybody help???

Does anybody have a VBA macro that can generate a chain sprocket?

Many thanks in advance!

Darren

SolidworksApi/macros