Färgade ord?

jag skulle villa få så att t.ex. om man sriver in ordet fest inom

så ska även ordet få en annan färg men resten av texten ska vara svart
hur ska jag gör för att fixa det. min nuvarande kod är nedanför:

Dim str
Function texten(str)
        Set regExp = new regExp
            regExp.Global = True
            regExp.IgnoreCase = True
    
regEXP.Pattern = "\[KOD\]"  : str = regExp.Replace(str, "<br><table width='378' align='center' border='0' cellspacing='0' cellpadding='0' class='kant'><tr><td bgcolor='#E2E2C7' style='padding: 4px'>")
  
regEXP.Pattern = "\[/KOD\]"  : str = regExp.Replace(str, "</td></tr></table><br>")
        Set regExp = Nothing
    texten = str
End Function

kan någon hjälpa:)