Buenas aniitha, el problema es muy sencillo, sólo es cuestión de jugar con la clase String y probar funciones como Split, Left, StartsWith, entre otros más, hay muchísimas formas de hacerlo.



Una de ellas es el código que te diseñé.



Public Class Form1



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



Dim correo As String()

correo = Split(TextBox1.Text, "@")



Dim dominio As String()

dominio = Split(correo(1), ".")



If Not Char.IsLetter(correo(0), 0) Or Not correo(0).Length >= 2 Then

MessageBox.Show("Cheque que la letra inicial del nombre del correo debe ser una letra o que sean más de 2 carácteres.")

ElseIf Not dominio(0).Length > 1 Then

MessageBox.Show("Cheque que el dominio sea más de 1 carácter.")

ElseIf Not dominio(1).Length >= 3 Then

MessageBox.Show("Cheque que la extensión del correo sea más de 3 carácter.")

Else

MessageBox.Show("El correo se ha validado satisfactoriamente.")

End If



End Sub

End Class



Espero que sea lo que busques.

Saludos.

Que tal amiga, para este tipo de validaciones existe una herramienta llamada Expresiones Regulares, .NET incluye su libreria con clases para manejarlas, te dejo una funcion que valida esto por expresiones regulares veras que sencillo es, nada mas lee un poco acerca de ellas para que entiendas como funciona:



'necesitas importar este espacio de nombres



Imports System.Text.RegularExpressions



Function EmailCheck(ByVal email As String) As Boolean



' A esto se le llama expresion regular y es la que valida

' que la cadena que se pasa el metodo Match

' concuerde con lo especificado en ella



Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@" & _

"[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\." & _

"[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"



' Creamos un objeto Match con metodo Estatico Match de la clase

' Regex, le pasamos la cadena a validar y la expresion regular



Dim emailMatch As Match = Regex.Match(email, pattern)



' Llamamos al metodo Success de la clase Match y este

' Nos devuelve true o false si es valida o no respectivamente



EmailCheck = emailMatch.Success



End Function



Tal vez no comprendas como funciona la variable pattern de tipo String, pero aqui te dejo un link de Wikipedia para que entiendas como funciona.Te recomiendo que las aprendas a aplicar son muy utiles para validaciones de cadenas. Espero te ayude. Saludos!!

Hola! Espero poder ayudarte un poquillo, porque no se mucho de programación.



Existen funciones para el tratamiento de cadenas de caracteres para usar en Visual, y su resultado se guarda en una variable.



Por ejemplo, para longitud podes usar una variable numerica que vos declares (dim longitud as integer) que te guarde la longitud de tu cadena.



Si el mail esta en una caja de texto, seria algo asi:

longitud=len(nombre_caja_de_texto)

'compara con un if si es > 1

if longitud>1 then

`lo que fuera que hiciera

end if.



Para obtener las subcadenas seria algo asi:



1- buscar dónde esta el arroba:

variable_posicion=instr(nombre_caja_de_texto,"@") 'te devuelve en qué posicion de la cadena esta el arroba.Instr es una funcion que busca cadenas dentro de otra cadena.



2- ahora extraes desde el inicio hasta el arroba:

cadena1= left(nombre_caja_de_texto,variable_posicion)



3-Comparas con un if lo que necesites.



Bueno,espero te ayude, sino te dejo un link de visual que tiene sobre el tema de caracteres: http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm



está bueno, leelo!



Saludos! :)