' Text, der zu durchsuchen ist
Dim strTemp As String
strTemp = "test <test@test.de>, test2 <test2@test2.de>"
 
Dim intPos As Integer, intPos2 As Integer
Dim strEmail As String
' erstes Auftreten eines @-Symbols finden
intPos = InStr(1, strTemp, "@")
' Schleife, solange weitere @ gefunden werden
While intPos > 0
  ' < vor dem @ finden
  intPos2 = InStrRev(strTemp, "<", intPos)
  ' > nach dem @ finden
  intPos = InStr(intPos, strTemp, ">")
  ' Ausschneiden der Email-Adresse
  strEmail = Mid(strTemp, intPos2 + 1, intPos - intPos2 - 1)
  ' Ausgabe in die Debug-Konsole
  Debug.Print strEmail
  ' nächstes Auftreten finden
  intPos = InStr(intPos, strTemp, "@")
Wend

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.