Easier way to populate an array

I have a little Word macro that will assign random colors to the selected text string. I use it to get multi-colored text for Christmas cards, etc.

It operates on an array of color values:

Is there a way to populate this array where I can specify the number of copies of each color explicitly, rather than repeating the element multiple times?

I am hoping for something simple like:

Thanks