Visual Basic - cambiar de textboxt al introducir 4 números

como puedo hacer para cambiar automaticamente al introducir el cuarto numero en un textbox y que pase automaticamente al siguiente textbox.

tengo limitado el numero de caracteres a 4 y entrada solo números

IF LEN(TEXT1.TEXT)=4 THEN
TEXT2.SETFOCUS
ENDIF

Pónlo en el suceso CHANGE del TEXT1

Saludos

Puedes probar esto tambien:

Private Sub Text1_Change()
if Len(Trim(Texi1.text))>Tex1.MaxLength then
Text2.Setfocus
End If
End Sub
De esta manera no tendras que cambiar nada de codificacion si es que por alli deseas cambiar la longitud maxima de tu textbox