Using a RegExp object, how to find the match of all occurrences of a search string pattern inside a target string.

''This sub finds the matches in a Input String

Sub RegExpSub(strMatchPattern, strInputPhrase)
'create variables
Dim objRegEx, Match, Matches, StrReturn
'create instance of RegExp object
Set objRegEx = New RegExp
'find all matches
objRegEx.Global = True
'set case insensitive
objRegEx.IgnoreCase = True
'set the pattern
objRegEx.Pattern = strMatchPattern
'create the collection of matches
Set Matches = objRegEx.Execute(strInputPhrase)
'print out all matches
For Each Match in Matches
StrReturn = "Match found at position "
StrReturn = StrReturn & Match.FirstIndex & ", and the Match Value is " & Match.Value
MsgBox StrReturn
Next
End Sub

'call the subroutine
Call RegExpSub("is.", "Is1 is2 Is3 is4")

''Output of execution:
'Match found at position 0, and the Match Value is Is1
'Match found at position 4, and the Match Value is is2
'Match found at position 8, and the Match Value is Is3
'Match found at position 12, and the Match Value is is4