Function RegExpTest(strng)
i = 0
Set regEx = New RegExp
regEx.Pattern = "\[+\d+\]"
regEx.IgnoreCase = True
regEx.Global = True
RegExpTest= regEx.Replace(strng,"")
End Function

response.write RegExpTest("哈哈哈[33]【3】[d]呵呵呵[33]")