如果去掉括号和括号里的字符

Question

像这样的字符串
"例子（例1）为……"
怎样变成
"例子为……"

Answer 1

具体怎么用,比如str=Replace(str, ????"")

Answer 2

instr + mid 
帮到底了Sub t()
  Const s = "例子（例1）为……"
  Dim ret As String
  Dim p1  As Integer
  Dim p2  As Integer
  
  p1 = InStr(1, s, "（", vbBinaryCompare)
  p2 = InStr(1, s, "）", vbBinaryCompare)
  ret = Mid(s, 1, p1 - 1) & Mid(s, p2 + 1, Len(s))
  
  Debug.Print ret
End Sub  
--------------------------------------------------------------
程序，犹如人生。

Answer 3

应该是有
"例子（例1）（为）……"
的情况
在网上找了个好像是正则表达式的
str = Replace(str, "\\([^\\)]*\\)", "")
但是不好用。
希望各位高人给指点一下啊！！