names = Split(email, "@")
 if UBound(names) <> 1 then
   IsValidEmail = false
   exit function
 end if

论谈上有有关函数帮助．可以下载！

能给个地址吗？

数组的最后一项的编号

也就是数组的长度