VBA Code:
Dim MyRegExp As RegExp
Set MyRegExp = New RegExp
With MyRegExp
.Pattern = "(?<=Your message wasn't delivered to )(.*)(?= because)"
Cells.SpecialCells(xlCellTypeLastCell).Offset(1, -1).Value = MyRegExp.Execute(Returned_Mail.Body)
End With