regex101: Brackets Recurse

Pro

Group 1(\w+)

\w+any word character, repeated at least once

\(the literal ( (40₁₀ / 50₈ / 28₁₆)

Non-Capturing Group(?:[^()]+|(?R))*+

*+repeats the group contents below any number of times:

1st Alternative[^()]+

Negated Character Class[^()]+

+matches at least one character outside the set below:

(the literal ( (40₁₀ / 50₈ / 28₁₆)

)the literal ) (41₁₀ / 51₈ / 29₁₆)

2nd Alternative(?R)

(?R)recurses into the entire pattern

\)the literal ) (41₁₀ / 51₈ / 29₁₆)

Global pattern flags

g modifier: global. Finds all matches instead of stopping after the first

m modifier: multiline. Causes ^ and $ to match the start and end of each line, not only the start and end of the string

25 tokens

Regular Expression

(\w+)\((?:[^()]+|(?R))*+\)

New

Attribute VB_Name = "mdl_WbkInits"
Option Compare Database

Function InitWbk_004(byRef wbkRef x ())
    Dim wbk As wbk_004_InstoreBrief

    Set wbk = New wbk_004_InstoreBrief

    Call wbk.wbk_Init(wbkRef)
    
    Set InitWbk_004 = wbk
End Function
Public Function InitWbk_003(ByRef wbkRef As Object) As Object

    Dim wbk As wbk_003_3DCalculation

    Set wbk = New wbk_003_3DCalculation

    Call wbk.wbk_Init(wbkRef)
    
    Set InitWbk_003 = wbk
End Function

Extraction

Attribute VB_Name = "mdl_WbkInits"
Option Compare Database

Function InitWbk_004(byRef wbkRef x ())
    Dim wbk As wbk_004_InstoreBrief

    Set wbk = New wbk_004_InstoreBrief

    Call wbk.wbk_Init(wbkRef)
    
    Set InitWbk_004 = wbk
End Function
Public Function InitWbk_003(ByRef wbkRef As Object) As Object

    Dim wbk As wbk_003_3DCalculation

    Set wbk = New wbk_003_3DCalculation

    Call wbk.wbk_Init(wbkRef)
    
    Set InitWbk_003 = wbk
End Function