Merhaba;
Önce tüm metni boşluk karakteri ile split et, sonra ister regexp ile istersen de if ile yapılmış e-posta doğrulama fonksiyonları ile tüm metni tarat. Örnek kod;

<%
strMailler
strMetin = Split(elindekiMetin, " ")
For i = 0 To UBound(strMetin)
     If isMail(strMetin(i)) Then
          strMailler = strMailler & strMetin(i) & ";"
     End If
Next
Response.Write(strMailler)
%>

For yerine For Each döngüsü de kullanılabilir. isMail fonksiyonuna örnek olarak yukarıdaki regExp kullanılabilir. Bu işlemden sonra mail adreslerini aralarına ; koyarak ekrana yazacaktır. Kolay gelsin.