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

[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