Dim objRegExp As New RegExp
Private Sub Command1_Click()
objRegExp.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
MsgBox (objRegExp.Test(txtEmail.Text))
If objRegExp.Test(txtEmail.Text) Then
MsgBox "Email correcto."
Else
MsgBox "Email incorrecto."
End If
End Sub