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
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