' @Author - Alexander Bolte
' @Change Date - 2014-02-28
' @Description - Searches given a string for a given regular expression and returns the result based on parametrization in a collection.
' @Param findAll - True, if all occurences matching the given pattern should be returned. False, if only the first occurence matching a given pattern should be returned.
' @Returns - A collection of type VBA.Collection holding all found matches as Strings.
Function getRegExMatches(ByVal patrn As String, ByVal strng As String, Optional ByVal findAll As Boolean = True, Optional ByVal useIgnoreCase As Boolean = False) As VBA.Collection
    Dim regEx As RegExp
    Dim matches As MatchCollection
    Dim ret As New VBA.Collection
    Dim i As Integer
    
    Set regEx = New VBScript_RegExp_55.RegExp
    regEx.Pattern = patrn   ' Set pattern.
    regEx.IgnoreCase = useIgnoreCase   ' Set case insensitivity / sensitivity.
    regEx.Global = findAll   ' Set global applicability. If true, find all occurences, if false, find only fisrt one
    regEx.MultiLine = True ' This parameter controls, if a pattern should be searched accross line breaks or not.
    If regEx.Test(strng) Then
        Set matches = regEx.Execute(strng)   ' Execute search.
        For i = 0 To matches.Count - 1
            ret.Add matches.Item(0).Value
        Next i
    End If
    
    Set matches = Nothing
    Set regEx = Nothing
    
    Set getRegExMatches = ret
End Function