Visual Basic - ¿pasar al siguiente textbox vb6?

Option Explicit

Private Sub Form_Load()

Text1.MaxLength = 30

Text2.MaxLength = 30

Text3.MaxLength = 30

Text4.MaxLength = 30

End Sub

Private Sub Text1_Change()

If Len(Text1.Text) = Text1.MaxLength Then

tratar Text1, Text2

End If

End Sub

Sub tratar(textboxatratar As textbox, textboxposterior As textbox)

Dim linea, remplazar, cortar As String

Dim separar As Variant

Dim n As Integer

Dim largo As Long

'la linea que escribimos en el textbox'

linea = textboxatratar.Text

separar = Split(linea, " ")

'separamos las palabras de la linea por los espacios'

'obtenemos la ultima palabra de la linea'

For n = 0 To UBound(separar)

cortar = separar(n)

Next

'obtenemos la posicion donde esta la palabra a suprimir'

largo = InStrRev(linea, cortar, , vbTextCompare) - 1

remplazar = Left$(linea, largo)

'suprimimos la palabra de la linea de texto'

textboxatratar = remplazar

'siguiente textbox'

textboxposterior.SetFocus

'ponemos la palabra'

textboxposterior.Text = cortar

'posicionamos el cursor despues de la palabra para seguir escribiendo'

textboxposterior.SelStart = Len(textboxposterior.Text)

End Sub

Private Sub Text2_Change()

If Len(Text2.Text) = 30 Then

tratar Text2, Text3

End If

End Sub

Private Sub Text3_Change()

If Len(Text3.Text) = 30 Then

tratar Text3, Text4

End If

End Sub