正则限制数量问题，也许你也遇到过

If Trim(Keyword) <> "" Then
sKeyword = Split(Keyword, "@@@")
For i = 0 To UBound(sKeyword) - 1
strKeyword = Split(sKeyword(i), "$$$")
re.Pattern = "(" & strKeyword(0) & ")"
strContent = re.Replace(strContent, "<a target=""_blank"" href=""" & strKeyword(1) & """ class=""wordstyle"">$1</a>")
Next
End If这是一段给内容关键词加上连接的代码，如果用了，比如你要把 新闻 全部指定连接，那么此内容中全部包含新闻的字样都加连接了
能不能限制他的个数，比如只加头，或者尾，或者前1-2个，或者后1-2个
请教高人应该怎么写