Validação de e-mail

Pessoal,

o código abaixo está bloqueando e-mail's do tipo m.norma@click21.com.br

deve ser por causa da vírgula, alguem têm uma solução urgente?

<script language="VBScript">Function ValidaEmail(Email)  ValidaEmail = false  pos = instr(Email,"@")  if pos = 0 or pos = 1 or pos = len(Email) then    exit function  end if  pos = instr(Email,".")  if pos = 0 or pos <= 3 or pos = len(Email) then    exit function  end if  ValidaEmail = true    End function</script>