Pattern Matching in ASP VBScript

str = "[b] aaa [b] bbb [/b] [/b]"

dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True

re.Pattern="\[b\](.*?)\[\/b\]"
do while re.test(str)
str = re.replace(str, "<b>$1</b>")
loop

return str -------------------------------------------- 其中 (.*?) 表示任一字元, 並切割入變數$n