Visual Basic - textbox con formato de e-mail

Hola!!!!!!!!
Como hago para que un textbox tenga el formato de un e-mail.

Esto te podrá servir:

Pon esto en el procedimiento de evento Text1_LostFocus():

Private Sub Text1_LostFocus()
If Not ValidaEMail(Text1.Text) Then
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
MsgBox "Hay que poner una direccion de E-mail"
End If
End Sub

Y esto otro en el mismo módulo:

Private Function ValidaEMail(Cadena As String) As Boolean
Dim Arroba As Long
Dim Punto As Long
ValidaEMail = False
Arroba = InStr(1, Cadena, "@")
Punto = InStr(1, Cadena, ".")
If (Arroba > 0) And (Punto > 0) And (Punto > Arroba) Then ValidaEMail = True
End Function

Esto no asegura que la dirección de Email sea válida, pero al menos comprueba que tiene una arroba y un punto, y que están colocados de forma correcta.

Saludos
Josetxu

En www.ambsoftware.com encontre lo siguiente:

Comprobar si una cadena de texto contiene un email válido

Mediante el siguiente ejemplo, se mostrará cómo validar si el email escrito a través de una cadena de texto es válido.

Private Sub Form_Load()
Dim myReg As RegExp
Dim email As String
Set myReg = New RegExp
myReg.IgnoreCase = True
myReg.Pattern = "^[\w-\.]+@\w+\.\w+$"
email = txtEMail.Text
MsgBox "El resultado del checkeo es: " & myReg.Test(email)
End Sub

Espero te sirva,

Saludos desde Lima