Visual Basic - Validar direccion de correo

Como hago para validar una direccion de correo.....en un text....validar que la direccion ingresada contega el caracter @...gracias

Hola,
tengo una funcion para esto:

Public Function valido_correo(correo As String) As Boolean
Dim i As Integer
Dim ultimo As Integer
Dim veces As Integer
ultimo = Len(correo)

For i = 1 To Len(correo)
If Mid(correo, i, 1) = "@" Then
If i = 1 Or i = ultimo Then
valido_correo = False 'esta en primer lugar o ultimo
Exit Function
Else
veces = veces + 1 'cuenta las veces que esta
End If
End If
Next i
If veces = 1 Then
valido_correo = True
Else
valido_correo = False
End If
End Function

y lo validas asi:

Private Sub Command1_Click()
If valido_correo(Text1) = False Then
MsgBox "error"
End If

End Sub

suerte