Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click
 
        ' Vergleichsmuster
        Dim sPattern As String = "^([\w-]+\.)*?[\w-]+@[\w-]+\.(" & _
          "[\w-]+\.)*?[\w]+$"
 
        ' Syntax der EMail-Adresse prüfen
        If Not System.Text.RegularExpressions.Regex.IsMatch(txtemail.Text, _
          sPattern) Then
            ' Syntax entspricht nicht dem Muster!
            MsgBox("Die Syntax der EMail-Adresse ist nicht korrekt!")
        End If
End Sub