求教:怎样在vb程序中使用正则表达式,比如用正则表达式判断邮件地址是否合法?

'在VB工程中引用Microsoft VBScript Regular Expressions
Dim reg As New RegExp
reg.IgnoreCase = True
reg.Global = True
reg.MultiLine = True
reg.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
a = reg.Test(text1.text)
if a then
msgbox "OK"
end if

[此贴子已经被作者于2006-5-9 11:17:11编辑过]

我发现个问题，比如邮件地址：e123@yahoo.com.cn</,这显然是个不合法的地址，但为什么还是返回true呢？