如何实现检索结果的检索词变色

dim RegExp
    Set RegExp=new RegExp
    RegExp.IgnoreCase =true
    RegExp.Global=True
    RegExp.Pattern="(" & keyword & ")"
    Content=RegExp.Replace(Content,"<font color=""#FF0000"">$1</font>" )
    Set RegExp=Nothing