我这个正则匹配能不能再简单点？

'HtmlContent 是包含整个页面内容的变量

'{ArticleClass:li,li}是标签

'ArticleClass(HtmlStart,HtmlEnd)是一个已经经过各种处理的函数

'*******************************************

'匹配文章分类标签

'*******************************************

If instr(1,HtmlContent,"{ArticleClass:",1)>0 Then

    Set re=new RegExp

    re.IgnoreCase=True

    re.Global=True

    re.Pattern="\{ArticleClass\:(.*?),(.*?)\}"

    Set matches=re.Execute(HtmlContent)

    For each match in matches

        HtmlStart=match.submatches(0)

        HtmlEnd=match.submatches(1)

    ArticleClassStr=ArticleClass(HtmlStart,HtmlEnd)

    HtmlContent=Replace(HtmlContent,"{ArticleClass:"&HtmlStart&","&HtmlEnd&"}",ArticleClassStr)

    Next

End If

'*******************************************

'匹配文章列表标签

'*******************************************

If instr(1,HtmlContent,"{ArticleList:",1)>0 Then

    Set re=new RegExp

    re.IgnoreCase=True

    re.Global=True

    re.Pattern="\{ArticleList\:(.*?),(.*?),(.*?),(.*?),(.*?)\}"

    Set matches=re.Execute(HtmlContent)

    For each match in matches

        ClassType=match.submatches(0)

        Rows=match.submatches(1)

        HtmlStart=match.submatches(2)

        HtmlEnd=match.submatches(3)

        TimeStr=match.submatches(4)

    ArticleListStr=ArticleList(ClassType,Rows,HtmlStart,HtmlEnd,TimeStr)

    HtmlContent=(replace(HtmlContent,"{ArticleList:"&ClassType&","&Rows&","&HtmlStart&","&HtmlEnd&","&TimeStr&"}",ArticleListStr))

    Next

End If

我想把代码简化一下，因为我需要匹配的标签实在太多了，产品标签 产品分类等等太多了，像现在这样写肯定太那什么看，我不太会用正则，只能像现在这样用了，应该可以简化的吧，希望各位指点指点。