escribir en textbox y pasar automaticamente a otra con limite de caracteres

[rikimm]

como le puedo hacer por decirlo asi tengo 3 cajas de texto en cada uno hay un limite como ejemplo la fecha en uno solo deve aceptar dos numero y q se pase automaticamente a la otra caja de texto 2 y asi sucesivamente
yo pensaba que podia hacer asi

Código VB2008:

If TextBox3.Text = TextBox3.Text(3) Then
            TextBox5.Focus()
        End If
 

y otra pregunta aprovechando por ejemplo en mi caja de texto se pone el nombre completo digamos asi jose ricardo
como puedo hacer para sacar la pura letra de cada nombre que seria la j y la r habra alguna forma que el programa identifique el espacio para asi tomar el segundo carater que seria la r pensaba que un if pero pensandolo bien podria ser un for para que pase caracter por caracter para que encunetre el espacio y asi tomar la r o me pueden explicar como hacerlo

[rikimm]

compañeros necesito que me ayuden a resover la segunda preunta que hize ya pude hacer localizar el espacio n balnco pero no encuentro una logica para que tome el valo o mas bien el siguiente caracter alguien que me ayude dejo mi codigo

Código vb2008:

Dim usuario As String
Dim x As Integer
//suponiendo que el nombre sea jose ricardo
usuario = TextBox1.Text
        For x = 0 To usuario.Length - 1
            MessageBox.Show(usuario(x))
            If usuario(x) = " " Then
                MessageBox.Show("Hay un espacio en blanco")
            End If
            
        Next x
//lo que quiero que despues del espacio en blanco tome la r
 

y lo del primer problema ya lo resolvi pongo el codigo para quien le sirva:

Código vb2008:

Dim dia, mes, año As String
        dia = TextBox3.Text
        For x = 0 To dia.Length - 1
 
            If x = 1 Then
                TextBox5.Focus()
            End If
 
        Next x
        mes = TextBox5.Text
        For x = 0 To mes.Length - 1
 
            If x = 1 Then
                TextBox6.Focus()
            End If
 
        Next x
        año = TextBox6.Text
        For x = 0 To año.Length - 1
 
            If x = 3 Then
                TextBox4.Focus()
            End If
 
        Next x
 

[rikimm]

bueno eh logrado algo mas les dejo el codigo y orita les pongo el error

Código vb2008:

Dim usuario As String
 Dim x As Integer
 Dim y As Integer
 
For x = 0 To usuario.Length - 1
            MessageBox.Show(usuario(x))
            'MessageBox.Show(x)
            If usuario(x) = " " Then
                'MessageBox.Show(x)
                y = x + 1
                usuario = usuario(y)
                MessageBox.Show("la letra despues del espacio es " + usuario)
            End If
 
        Next x
 

ahora si me me da el sig letra pero cuando termina de mostrar el mensaje me manda un error
no se controlo indexOutOfRangeException y abajo dice el indice fuera de los limites de la matriz

[rikimm]

que nadie me puede ayudar con mi problema

[Porlachucha]

cuando te refieres a usuario(x), estas haciendo referencia a un arreglo de usuarios (arreglo es lo mismo que vector)

para que puedas leer cada caracter de la variable usuario, debes usar substring

Código:

For x = 0 To usuario.Length - 1
            MessageBox.Show(usuario(x))
            'MessageBox.Show(x)
            If usuario.SubString(x, 1) = " " Then
                'MessageBox.Show(usuario.SubString(x, 1) )
                MessageBox.Show("la letra despues del espacio es " + usuario.SubString(x + 1, 1))
            End If
         Next x

Espero te sirva
Plch

[rikimm]

gracias amigo t lo agredesco mucho Porlachucha me ayudaste si me sirvio tu codigo ya no me manda error gracias de nuevo