This is the generic method for applying color  to part of a cell.

ActiveCell.Characters(Start:=3, Length:=3).font _
.ColorIndex=4

You would vary the Start, Length, and ColorIndex for the result you want.

I would have a for-next loop to step through the relevant cells
In that I would have a for-next loop to step through the characters  in the
cell
In that I would have a select case structure based on the code of each
character to set the color index
Immediately after the end select you have the line to set the color of the
character.