Excel VBA VB 5.5 REGEX - help getting count and value

rodsan724 

You may try the following functions...

To get the Count:

Function getTargetCount(ByVal str As String) As Long
Dim Matches As Object
With CreateObject("VBScript.RegExp")
    .Global = True
    .ignorecase = True
    .Pattern = "target1 = (\d+)"
    If .test(str) Then
        Set Matches = .Execute(str)
        getTargetCount = Matches.Count
    Else
        getTargetCount = 0
    End If
End With
End Function

To get the Last Value of Target:

Function getTargetValue(ByVal str As String) As Long
Dim Matches As Object
With CreateObject("VBScript.RegExp")
    .Global = True
    .ignorecase = True
    .Pattern = "target1 = (\d+)"
    If .test(str) Then
        Set Matches = .Execute(str)
        getTargetValue = Matches(Matches.Count - 1).submatches(0)
    End If
End With
End Function

Then you may either use these functions in another code or as regular Excel functions on the worksheet itself.