Flere former for validering i custom control

Jeg har lavet følgende custom control der både tjekker om en textbox er udfyldt og at antal tegn er under et given antal. Nu vil jeg også gerne have koblet på at den skal tjekke om det er en gyldig email (aktså xxx@xxx.xx)

Hvordan f... gør jeg lige det?

Option Explicit
Option Strict


Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Text

Namespace Validate

    Public Class EmailKravMax : Inherits BaseValidator
   
        Protected _MaxTegn As Integer = 2147483647       
        Protected _KravBesked As String = "Skal udfyldes"
        Protected _Maxbesked As String = "Max tegn overskredet"
       
        Public WriteOnly Property MaxTegn() As Integer       
            Set(ByVal Value As Integer)        
                _MaxTegn = Value       
            End Set        
        End Property
       
        Public WriteOnly Property KravBesked() As String       
            Set(ByVal Value As String)           
                _KravBesked = Value           
            End Set       
        End Property
       
        Public WriteOnly Property Maxbesked() As String       
            Set(ByVal Value As String)           
                _Maxbesked = Value           
            End Set       
        End Property
       
        Protected Overrides Function EvaluateIsValid() As Boolean       
            Dim val As String
           
            val = Me.GetControlValidationValue(Me.ControlToValidate)
           
            If ( val.Length = 0 ) Then           
                Me.Text = _KravBesked           
                Return False           
            ElseIf (val.Length > _MaxTegn ) Then           
                Me.Text = _Maxbesked           
                Return False           
            Else           
                Return true           
            End If       
        End Function
   
    End Class


End Namespace