How to remove all characters between two brackets?

How to remove all characters between two brackets?

Such as "12345 (rtetnj) dsfd (fddsgd) dsf "----> "12345 dsfd dsf "

Use regexp syntaxes ,it's too simple .

Function StringWithoutBrackets(ByVal s As String) As String
With CreateObject("VBSCRIPT.REGEXP")
.Global = True
.Pattern = "[(][^)]*[)]"
StringWithoutBrackets = .Replace(s, "")
End With
End Function

Sub test()
MsgBox StringWithoutBrackets("12345 (rtetnj) dsfd (fddsgd) dsf ")
End Sub