quitar lestras de una cadena a partir de un punto

[leliCabello]

hola amigos, tengo el siguiente problema y espero que me puedan ayudar, mira tengo estas direcciones:
turincon.com.pe
peru.com
sublime.us
la gran pregunta es como hago para quitar el resto de letras a partir del punto y que solo me mueste lo nombres de esta manera:
turincon
peru
sublime
espero que me pudan ayudar

[TGa.]

te recomiendo que leas esto http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico5.htm

[KuraraGNU]

Yo no se VB, pero se VBA, coje la cadena, hazle un left(cadena,limite) y como límite cojes el resultado de una función que devuelva un int que recorra la cadena caracter a caracter a través de un bucle y compare el caracter con "." y si no es igual que le sume 1 a un contador iniciado a 0 en el método hasta que sea igual, que terminará el bucle y devuelves el contador que se habrá quedado con la posición del punto.

El resultado lo mismo tienes que sumarle o restarle uno dependiendo si la cadena empieza a contar en 0 o en 1 o si el left llega hasta el contador incluído o no. Eso ya lo depuras tú.

Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.

[[D4N93R]]

Regular Expressions.

[Dessa]

mmm...

MsgBox Split("turincon.com.pe", ".")(0)

[leliCabello]

genial me funciona con el split . gracias

[Dessa]

Nada, saludos.