Public Function GetMatchesWithRegExp(strInput As String, strRegExp As String) As Variant
  Dim regExp As Object
  Set regExp = CreateObject("vbscript.regexp")
  'Con riferimento a: “Microsoft VBScript Regular Expression 5.5”
  'Dim regExp As New RegExp
  
  Dim arrRes() As String
  ReDim arrRes(0)
  arrRes(0) = vbNullString
  
  With regExp
    .Global = True
    .MultiLine = True
    .IgnoreCase = True
    .Pattern = strRegExp
  End With
  
  If (regExp.Test(strInput)) Then
    Set Matches = regExp.Execute(strInput)
    ReDim arrRes(0 To Matches.Count - 1)
    For Each Match In Matches
      arrRes(i) = Match.value
      i = i + 1
    Next Match
  End If
  GetMatchesWithRegExp = arrRes
End Function

arrRes = GetMatchesWithRegExp(strInput, strRegExp)
For Each Res In arrRes
  ...
Next Res