Как выделить из текста все адреса электронной почты?

[IgorGO]

да со времени написания того макроса прошло почти 3 года...
Е-мейлы из любого текста я теперь выбираю так:

Function GetEMails(AnalisStr As String)
  Dim oRegExp
  Set oRegExp = CreateObject("VBScript.RegExp")
  oRegExp.MultiLine = True:  oRegExp.Global = True
  oRegExp.Pattern = "[^ ]+@[^ \n]+\b"
  Set GetEMails = oRegExp.Execute(AnalisStr)
End Function

GetEMails - возвращает коллекцию электронных адресов.
а воспользоваться можно, например так:

Sub ShowEmls()
  Dim Matches, iMatches, s As String
  s = "это пример текста c электронными адресами: Igorgo@ukr.net" _
  & Chr(10) & " не смотря на то, что он разделен на строки 111@lya.com,<<== и текст за запятой вплотную пошел" _
  & Chr(10) & " и в конце предложения адрес может находиться ==>> 222@lya.com."
  Set Matches = GetEMails(s)
  For Each iMatches In Matches
    MsgBox iMatches
  Next
End Sub