How to grab the domain names of the rejected emails using regex in vba?

Question

Dim MyRegExp As RegExp

Set MyRegExp = New RegExp With MyRegExp .Pattern = "(?<=Your message wasn\'t delivered to )(.*)(?= because)" Cel