求vb获取字符串中的邮箱地址的正则方程式，多谢了！！

我给你写个函数吧。

'返回一个字符串中包含的email地址，但本函数不验证该email的合法性；

'如果不包含email地址，则返回空字符串；

'如果包含多个email地址，则返回第一个email。

private function GetEmail(byval sStr as string) as string