If your colours are specified as, for example:
HTML Code:
[color=#0040FF]Disk Cleanup[/color]
then you'd do better to use something like:
Code:
.Text = "\[color=0040FF\](*)\[/color\]"
.Replacement.Font.Color = &H40FF
That way, you don't need to find a ColorIndex (which won't exist for some colours) and you'll get a more faithful representation of what the actual colour is (&H40FF is red, not green).