Function arrIzSkob(ByVal text As String) As Variant

     Static objRegExp As Object 'VBScript_RegExp_55.RegExp
      
     Dim colMatches   As Object 'VBScript_RegExp_55.MatchCollection
     Dim objMatch     As Object 'VBScript_RegExp_55.Match
     Dim i            As Integer
      
     Dim arrMatches(1 To 20) As String 'ЗДЕСЬ НАДО МЕНЯТЬ, ЕСЛИ НАДО БОЛЬШЕ 20 !!!
      
     If objRegExp Is Nothing Then
         Set objRegExp = CreateObject("VBScript.RegExp") 'New VBScript_RegExp_55.RegExp
         objRegExp.IgnoreCase = True
         objRegExp.Global = True
         objRegExp.Pattern = "\([^()]*\)"
     End If
      
     If objRegExp.Test(text) = True Then
         Set colMatches = objRegExp.Execute(text)
         For Each objMatch In colMatches
             i = i + 1
             arrMatches(i) = Replace(Replace(objMatch.Value, "(", ""), ")", "")
         Next
     End If
      
     arrIzSkob = arrMatches
      
End Function