SoloCodigo

Hola a todos, soy nueva aqui y espero que alguien me pueda ayudar. Lo que quiero saber es como puedo validar un textbox que reciba un mail, pero que el "@" (arroba) no este al comienzo y que despues del arroba puedan existir hasta 3 puntos "."

Se que debo utilizar InStr para ver las posiciones pero no me funciona cuando le coloco un errorprovider. Hasta aqui esto es lo que he avanzado:

    Private Sub txtMail_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtMail.Validating
        Dim micaja As TextBox
        Dim cadena As String
        micaja = CType(sender, TextBox)
        cadena = Val(micaja.Text)

        If InStr(cadena, "@") = 1 And InStr(cadena, ".") < InStr(cadena, "@") Then
            ErrorProvider1.SetError(micaja, "Escriba correctamente su direccion de mail")
            e.Cancel = True

        Else
            ErrorProvider1.SetError(micaja, "")
        End If
    End Sub