Pulling email address from irrelevant data within cell and inserting in adjacent column

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!

I should clarify, when I said I have limited background in VB I meant I have almost no background in VB.

I've entered in the code and when I run it, it prompts me to name it which I will name 'test' for simplicity. I then create it which then prompts a window for Module1 starting with:

Sub test()

End Sub

What should I put in the Sub?

Sorry, I'm a noob

Thank, this is a big improvement. There may be some fine tuning needed however. I'll use an example from a cell with names changed below.

Cell A1:
This is the message at sample.server.server.net.
I'm sorry to inform you that the message below could not be delivered.
When delivery was attempted, the following error was returned.
<name@domain.com>: host 00.00.000.000

Cell B1 [=FindEmail(A1)]:
name@domain.com>: host 00.00.000.000

Unfortunately there is no pattern of how cells in column A contain the email; in some the email is between <> and others between '' or have no separators at all.

Make no mistake, this is a big improve and if this is as good as it can get, I'll be happy with that!

I tried that and I got #VALUE!. As far as the attachment goes, I am unable to open it on my current machine. Not sure if its because I'm on Excel 2000 but I have a feeling that it is.

File attached to my previous post.

Can you upload a small sample workbook showing possible patterns of your data?

I'll try, there's sensitive information contained within though so I have to change some names and whatnot.

Just delete "^" from the pattern...

Function GetEmail(txt As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "[a-z0-9][a-z0-9_\.\-]+@[a-z0-9\-\.]+(\.[a-z]{2,3})+"
        .IgnoreCase = True
        GetEmail = .Execute(txt)(0)
    End With
End Function

Originally Posted by jindon

Just delete "^" from the pattern...

Function GetEmail(txt As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "[a-z0-9][a-z0-9_\.\-]+@[a-z0-9\-\.]+(\.[a-z]{2,3})+"
        .IgnoreCase = True
        GetEmail = .Execute(txt)(0)
    End With
End Function

This works perfectly! Thank you very much!

Just let you know that it will not recognize a string like

abc(xyz)@abc.com

as invalid character used.

Originally Posted by jindon

Just let you know that it will not recognize a string like

abc(xyz)@abc.com

as invalid character used.

I don't think we will run into too many errors with that but I'll be double checking all the cells where an email isn't generated. Thank you so much for the help, it is greatly appreciated!