Public Function RgxReplace(aregexp As String, astring As Range, areplace As String) As String
Dim re As RegExp
Set re = New RegExp
re.Pattern = aregexp
RgxReplace = re.Replace(astring, areplace)
End Function 

'Поиск по регулярному выражению и замена.
                        Pattern As String, _
                        Replace As String, _
                        Optional Globa1 As Boolean = True, _
                        Optional IgnoreCase As Boolean = False, _
                        Optional Multiline As Boolean = False) _
                As String
     
    RegExpFindReplace = str 'Пока ничего не меняли
     
    If Not str Like "" And Not Pattern Like "" Then
     
        Dim RegExp As Object 'Для регулярного выражения
         
        Set RegExp = CreateObject("VBScript.RegExp")
        With RegExp
            .Global = Globa1 'Все совпадения или только первое?
            .IgnoreCase = IgnoreCase 'Регистр неважен?
            .Multiline = Multiline 'Игнорировать переносы строк?
            .Pattern = Pattern 'Регулярка
        End With
 
        'Найти/заменить
        On Error Resume Next
        RegExpFindReplace = RegExp.Replace(str, Replace) 
         
        Set RegExp = Nothing 'Очистка памяти
     
    End If
     
End Function

Года = .Execute(s)(0)

Public Sub test()
     Dim pReg As Object
     Set pReg = CreateObject("VBScript.RegExp")
     pReg.Global = True: pReg.Pattern = "\(\d+\+\d+\)"
     Debug.Print pReg.Replace("(123+456)+789+(3456+2345)+123", "NAN")
End Sub

Function example(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\((\d+\+\d+)\)\+\d+\+\d+": .Global = True
    example = .Execute(t)(0).Submatches(0)
 End With
End Function

Public Function RegExpExecute2(str$, ptrn$)
 
    With CreateObject("VBScript.RegExp")
            .Global = 1
            .IgnoreCase = 0
            .MultiLine = 0
            .Pattern = ptrn
            
RegExpExecute2 = .Execute(str)(0)

        End With
     
End Function

Public Function RegExpExecute3(str$, ptrn$)

Dim p
 
    With CreateObject("VBScript.RegExp")
            .Global = 1
            .IgnoreCase = 0
            .MultiLine = 0
            .Pattern = ptrn
End With
            
For Each p In RegExp.Execute(str)

    RegExpExecute3 = RegExpExecute3 & vbCrLf & p.Value
    
Next
     
End Function

'For Each p In RegExp.Execute(sText)
'    sOut = sOut & vbCrLf & p.Value
'Next

Public Function RegExpExecute(str$, ptrn$, delim$, Glob$, IgnCase$, MulLine$)

    If delim = "перенос" Then delim = Chr(10)
    If delim = "" Then delim = " "
    
    Dim p
 
    With CreateObject("VBScript.RegExp")
        .Global = Glob
        .IgnoreCase = IgnCase
        .MultiLine = MulLine
        .Pattern = ptrn
 
        For Each p In .Execute(str)
        
'        RegExpExecute = "" (если нужно только одно значение)

        RegExpExecute = RegExpExecute & delim & p.Value
        Next
        
    End With
 
End Function