简单的检查输入email是否合法程序

function chkemail(email)       on error resume next       dim i,l,pos1,pos2       chkemail=true       if isnull(email) then chkemail=false:exit function       pos1= instr(email,&...