' Change here
sPattern = "c(\d+)"
aTestStrings = Array( _
	 "a1b2c3d4" _
	,"a1b2c4d4" _
	,"a1b2c5d4" _
	)

' do not change anything else
Set oRegEx = New RegExp
oRegEx.Global = True
oRegEx.Pattern = sPattern

for i=lbound(aTestStrings) to uBound(aTestStrings)
	WScript.Echo aTestStrings(i)
	set oMatches = oRegEx.Execute(aTestStrings(i))
	For Each Match in oMatches
		RetStr = ""
		RetStr = RetStr & "	Match found at position "
		RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
		RetStr = RetStr & Match.Value & "'."
		WScript.Echo RetStr
		j= 0 
		for each sm in Match.SubMatches
			WScript.Echo "		SubMatch "& j & ": " & sm
			j = j+ 1 
		next
	Next
	set oMatches = Nothing
next