高亮字符串中的关键字

'==========================================================
'函数名：Highlight
'作  用：标记高亮关键字，不区分大小写
'参  数：strContent -----字符串
'   keyword -----关键字
'返回值：高亮字符串中的关键字
'==========================================================
Function Highlight(strContent,keyword)
 Dim RegEx
 Set RegEx=new RegExp
 RegEx.IgnoreCase =True '不区分大小写
 RegEx.Global=True
 Dim ArrayKeyword,i
 ArrayKeyword = Split(keyword," ")'用空格隔开的多关键字
 For i=0 To Ubound(ArrayKeyword)
  RegEx.Pattern="("&ArrayKeyword(i)&")"
  strContent=RegEx.Replace(strContent,"<font color=red>$1</font>" )
 Next
 Set RegEx=Nothing
 Highlight=strContent
End Function