Sorting text within a excel cell dynamically via vbscript

[jeggosh]

I have a spreadsheet that scrapes data from my board game library on boardgamegeek.com. I found it on a forum there and have been adjusting it to my preferences

I am trying to sort the "mechanics" and "Categories" columns dynamically. There is no consistent order to how they are listed and I'd prefer to have them consistent. types of mechanics are separated by " |" for example, it populates the "Mechanics" with:
Animals |Card Game |Comic Book / Strip |Humor |Expansion for Base-game
Comic Book / Strip |Humor |Animals |Card Game Mature / Adult
Animals |Card Game |Comic Book / Strip |Humor |Party Game
Animals |Card Game |Comic Book / Strip |Expansion for Base-game |Humor
Expansion for Base-game |Horror
so the values are:
Animals
Card Game
Comic Book / Strip
Humor
Expansion for Base-game
Card Game Mature / Adult
Party Game
Horror
What I'd like to do is whenever I update the sheet, they automatically are ordered by a custom matrix. For instance:
Party Game
Card Game
Card Game Mature / Adult
Humor
Horror
Animals
Comic Book / Strip
Expansion for Base-game
and then populates the cell as such:
Card Game |Humor |Animals |Comic Book / Strip |Expansion for Base-game
Card Game Mature / Adult |Humor |Animals |Comic Book / Strip
Party Game |Card Game |Humor |Animals |Comic Book / Strip
Card Game |Humor |Animals |Comic Book / Strip |Expansion for Base-game
Horror |Expansion for Base-game
Thanks in advance!

 

[jeggosh]

an image for reference