In the last if statement, the isitvalid is split. I'm sure most people will catch this, but wanted to point it out.

if InStr(email, "..") > 0 then
is it valid=false
end if

should be

if InStr(email, "..") > 0 then
isitvalid=false
end if