Regular Expression Vbscript 2

Set oreg=New RegExp

str="sumit123raut one tarzan sumit567raut "
oreg.Pattern="sumit\d*raut"
oreg.global=True
oreg.ignorecase=True

msgbox oreg.execute(str).Count

Set oreg=nothing
 
'o/p 2