function validate_email(Expression)
   	Dim objRegExp
   	Set objRegExp = New RegExp
   	objRegExp.Pattern = "\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
   	validate_email = objRegExp.Test(Expression)
end function