Excel VBA: Returning a String found in a Regex Pattern

[Converemon]

I have a string and a pattern. If a substring of the string is found in the pattern, the string is no longer valid. I would like to return a message stating which substring was found in the pattern. I appreciate any help.

String: K22+L09+P88+Q12+J56
Pattern: (N75|X02|A21|U67|L09|...)
Output Should Be: "J56 is an invalid code. Blah-Blah"

Code to test string against pattern:

Function Test_OPC(sCode, sPattern) As Boolean
Dim RegX As Object
Dim RegMC
Set objRegX = CreateObject("VBScript.RegExp")
With objRegX
    .Pattern = sPattern
    If .Test(sCode) Then
        Set RegMC = .Execute(sCode)
        Test_OPC = True
    Else
        Test_OPC = False
    End If
End With
End Function

My only problem is returning which code was found in the pattern. I am willing to consider different approaches as well.

 

[Scott Huish]

I'm not sure why you would want to return J56, when you say you wan to return the one that matched. This is assuming there will only be one match:

Function PatternString(sCode As String, sPattern As String) As String
With CreateObject("vbscript.regexp")
    .Pattern = sPattern
    If .test(sCode) Then PatternString = .Execute(sCode)(0)
End With
End Function

Excel Workbook
	A	B
1	K22+L09+P88+Q12+J56	L09
Sheet1

 

[Converemon]

I really appreciate your time. Apologies for putting down the wrong code. I was originally using J56 but I changed it. Thank you for your help; you gave me exactly what I needed.