remove everything in an excel cell, except for the email address

i have long paragraphs including line breaks in each cell. in each cell , there is an email address. i would like to remove everything else so that only the email address remains.

is there some vba that could look for the word that has an @ symbol in it, then remove every other word except for that one? or some other way to do it?

there is no one find or replace that would work !