Código (VB) [Seleccionar]
Dim Texto() as string
Texto = split(textbox1.text, "/")
textbox2.text = Texto(1)
Con la función Split que devuelve un array de una cadena "cortada" por el/los caracteres indicados

Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDim Texto() as string
Texto = split(textbox1.text, "/")
textbox2.text = Texto(1)
If IsDate(TextBox1.Text) Then
MsgBox "Bien"
Else
MsgBox "Mal"
End If
CitarEn un pc de mayor rendimiento la velocidad ira perfecta. Testeado en un pc: Intel Core 2 Quad Q6600, 4GB DDR2, Geforce 9600 GSO, Windows Vista Ultimate x86