Visual Basic - 1 textbox para 2

mi pregunta es cuando escribo en un textbox por ejemplo

vladimir - makelele

en 2 textbox salga por separado el nombre y la palabra

texbox2 - vladimir

textbox3 - makelele

el codigo plz.. :)

hola vladimir
* si tecleas un espacio en blanco en el text1 al inicio automaticamente se regresa el cursor mas si tecleas un espacio en blanco despues del nombre puedes continuar
* si tecleas un el simbolo (-) en el text1 al inicio automaticamente se regresa el cursor mas si tecleasel simbolo despues del nombre puedes continuar

despues de que tecleas el nombre en el text1 al presionar el simbolo menos(-) automaticamente se escribe el contenido del text1 en el text 2 se va el cursor al final de la cadena se borra el simbolo (-) del text2 y se brinca al text3 para que escribas el apellido y al terminar el apellido y dar un espacio en blanco o sea con la barra espaciadora se pone en el text1 nombre - apellido

espero te sirva este codigo
Dios te bendiga
================================================
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 32) And (Text1 = "") Then KeyAscii = 8
If (KeyAscii = 45) And Len(Text1) < 2 Then KeyAscii = 8
If KeyAscii = 45 Then
Text2 = Text1
Text3.SetFocus
SendKeys "{end}"
KeyAscii = 8
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
Text1 = Text1 & " - " & Text3
End If
End Sub

muchas gracias pero ahora tengo un problema..

lo qe pasa es qe tengo qe copiar osea ya contiene el - y si lo escribo como ese codigo no pasa nada..

espero me puedas ayudar juan carlos y qe dios te ayude

no me sirve pedro luis... :/ gracias

utilizo visual basic 6 espero me puedan ayudar :)

Text2 = Mid(Text1, 1, InStr(Text1, "-") - 1)
Text3 = Mid(Text1, InStr(Text1, "-") + 1, Len(Text1))

resuelto muchas gracias a todos lo qe me ayudaron :)

dios los bendiga

usa instr() para buscar el guion.

haces un mid de la posicion 1 hasta la del instr(). eso va a text2

luego haces otro mid de la posicion instr()+1 hasta la longitud del lext del text.1 eso va en text3

no te entendi podrias darme el codigo ya hecho porfavor :)

gracias!

Hola Vladimir
este codigo automaticamente te inserta el - en el text1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
Text1.SelText = " - "
SendKeys "{end}"
end sub
==============================
este codigo se brinca el - si ya lo tiene el text1 al dar un espacio ne blanco
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
SendKeys "{end}"
KeyAscii = 32
End If
End Sub

aaa muchas gracias creo qe ya estoy entiendo.. ahora.. el segundo codigo no me funciona :) podrias checarlo porfavor!

gracias juan carlos

text1.text="vladimir - makelele"

pos=instr(text1.text,"-")

text2.text=trim(mid(text1.text,1,pos-1))

text3.text=trim(mid(text1.text,pos+1,len(text1.text)-pos))

el valor de text2 es "vladimir"
el valor de text3 es "makelele"

esto lo puedes poner en un boton o en lost focus del text1