I have a limited background in VB and am looking for an easy way to sort through a column containing upwards of 800 cells. Each cell has a bunch of irrelevant information mixed around the email address I'm looking to pull from the cell.

Example (cell A1):

Sample message used here to show info|
More sample information that I do not need|
You get the point, I don't need this information|
email@domain.com 8282013 random information here

All I need in cell B1 would be: email@domain.com

All help would be greatly appreciated!