' RegEx-Klassenobjekt erstellen
  Dim oRegEx As System.Text.RegularExpressions.Regex
 
  ' Vergleichsmuster
  Dim sPattern As String = "^([\w-]+\.)*?[\w-]+@[\w-]+\.([\w-]+\.)*?[\w]+$"
 
  With oRegEx
    ' Syntax der EMail-Adresse prüfen
    If Not .IsMatch(txtEMail.Text, sPattern) Then
      ' Syntax entspricht nicht dem Muster!
      MsgBox("Die Syntax der EMail-Adresse ist nicht korrekt!")
    End If
  End With

MfG
Huppi

######################################################
# Dank Computer wissen wir viel genauer, was wir nicht wissen... #
######################################################