function ValidaEmail($aux){
      //Valida no formato ***@***.***
      $pos1=(int) RetornaPos("@",$aux);
      if($pos1>2){
         $aux1=substr($aux,$pos1+2);
         $pos2=RetornaPos(".",$aux1);
         if($pos2>1)   {
            $aux2=substr($aux1,$pos2+1);
            if(strlen($aux2)>2)
               return True;
         }
         else
            return False;
      }
      else
         return False;
   }