clean email addresses (function mid, find, left, len)

[FFlo]

Hi,

I tried to search on the forum or do it by myself but I guess my searching and vba skills are not good enough.
I don't know if I chose a right title to explain my problem but anyway, here it is. I have a spreadsheet with

A1 <a href="mailto:toto@vbanoob.com">toto@vbanoob.com</a>
A2 <a href="mailto:tata@vbanoob.com">tata@vbanoob.com</a>
A3 <a href="mailto:titi@vbanoob.com">titi@vbanoob.com</a>
A4 <a href="mailto:tutu@vbanoob.com">tutu@vbanoob.com</a>
etc.

I did in Excel
=MID(A1,FIND(">",A1)+1,100)
to get toto@vbanoob.com</a> and
=LEFT(A1,LEN(A1)-4)
to get my good email address

I would like to make a VBA function as I will have several list like that to clean.

Thanks.

Flo