Remove Brackets from RegEx

[AlexanderBB]

This extracts the bracketed part of s

Function TestBracket(s) As String
    Dim RE As Object, REMatches As Object
    Set RE = CreateObject("vbscript.regexp")
    RE.Pattern = "\(.*?\)"
        If (RE.test(s) = True) Then
            Set REMatches = RE.Execute(s)
             TestBracket = REMatches(0)
        End If
    Set REMatches = Nothing
    Set RE = Nothing
End Function

Can it also remove the opening/closing brackets at the same time?

 

[Fuji]

Function TestBracket(s) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "\((.*?)(?=\))"
        If .test(s) Then TestBracket = .Execute(s)(0).submatches(0)
    End With
End Function

 

[AlexanderBB]

That's superb... thanks very much.

 

[Fuji]

You are welcome and thanks for the feedback.