regex101: VBA Global Const Statement

Non-Capturing Group(?:(Dim|Public|Private) )

Group 1(Dim|Public|Private)

1st AlternativeDim

Dimthe literal text Dim (case sensitive)

2nd AlternativePublic

Publicthe literal text Public (case sensitive)

3rd AlternativePrivate

Privatethe literal text Private (case sensitive)

the literal (32₁₀ / 40₈ / 20₁₆)

Non-Capturing Group(?:(WithEvents) )?

?repeats the group contents below at most once:

Group 2(WithEvents)

WithEventsthe literal text WithEvents (case sensitive)

the literal (32₁₀ / 40₈ / 20₁₆)

Non-Capturing Group(?:(?:(?!Declare)(?!Type)(?!Enum)(?!Const)(\w*))()?)

Non-Capturing Group(?:(?!Declare)(?!Type)(?!Enum)(?!Const)(\w*))

Negative Lookahead(?!Declare)

Declarethe literal text Declare (case sensitive)

Negative Lookahead(?!Type)

Typethe literal text Type (case sensitive)

Negative Lookahead(?!Enum)

Enumthe literal text Enum (case sensitive)

Negative Lookahead(?!Const)

Constthe literal text Const (case sensitive)

Group 3(\w*)

\w*any word character, repeated any number of times

Group 4()?

?repeats the group contents below at most once:

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

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

Non-Capturing Group(?: As )?

?repeats the group contents below at most once:

As the literal text As (case sensitive)

Non-Capturing Group(?:(New) )?

?repeats the group contents below at most once:

Group 5(New)

Newthe literal text New (case sensitive)

the literal (32₁₀ / 40₈ / 20₁₆)

Group 6(\w*)

\w*any word character, repeated any number of times

Group 7(, [\w ,]*)?

?repeats the group contents below at most once:

, the literal text ,

Character Class[\w ,]*

*matches any number of characters from the set below:

\wany word character

the literal (32₁₀ / 40₈ / 20₁₆)

,the literal , (44₁₀ / 54₈ / 2C₁₆)

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

\)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

(?:(Dim|Public|Private) )(?:(WithEvents) )?(?:(?:(?!Declare)(?!Type)(?!Enum)(?!Const)(\w*))(\(\))?)(?: As )?(?:(New) )?(\w*)(, [\w ,\(\)]*)?

New

Attribute VB_Name = "mdl_WbkInits"
Option Compare Database

Public WithEvents ue_u23 As New String, soumeth_34ing as somethnig, asi As Anthere item, Maybe lastOne 
Public ueu As Variant
Dim ueu

Public Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As UUID) As Long
Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As UUID) As Long

Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hwnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Type UUID 'GUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(7) As Byte
End Type

Public Enum e_ControlEventCatch
    e_onClick
    e_onChange
    e_onUpdate
    e_onUpdated
    e_onDblClick
    e_onFocus
    e_onExtClick
    e_onExtDblClick
    e_onActivate
    e_onDeActivate
End Enum

Public Const IID_IDispatch As String = "{00020400-0000-0000-C000-000000000046}"
Const OBJID_NATIVEOM As Long = &HFFFFFFF0

Extraction

Attribute VB_Name = "mdl_WbkInits"
Option Compare Database

Public WithEvents ue_u23 As New String, soumeth_34ing as somethnig, asi As Anthere item, Maybe lastOne 
Public ueu As Variant
Dim ueu

Public Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As UUID) As Long
Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As UUID) As Long

Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hwnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Type UUID 'GUID
  Data1 As Long
  Data2 As Integer
  Data3 As Integer
  Data4(7) As Byte
End Type

Public Enum e_ControlEventCatch
    e_onClick
    e_onChange
    e_onUpdate
    e_onUpdated
    e_onDblClick
    e_onFocus
    e_onExtClick
    e_onExtDblClick
    e_onActivate
    e_onDeActivate
End Enum

Public Const IID_IDispatch As String = "{00020400-0000-0000-C000-000000000046}"
Const OBJID_NATIVEOM As Long = &HFFFFFFF0