请问VBScript中实现Email的格式匹配要怎么做？

如题。

请回复，多谢！！！
---------------------------------------------------------------

If Len(Trim(frm.Email.value)) <> 0 and InStr(2,frm.Email.value,"@")=0 then
frm.Email.focus()
msg = "E-mail好像不能用!"
MsgBox msg, 64, "你好"
Exit Function
End if