Spanish No me tabulan todos los EditText

Sub IN_Texto_EnterPressed
    Dim b As EditText
    Dim indice As Int
    
    
    b=Sender
    indice = b.Tag 
    indice=indice+1
    ' supuestamente los tag son del 1 al 39, si lo cambias de 0 a 38 cambia lo de abajo 
    If indice > 39 Then indice=1 ' si quieres que vaya al primero
    
    Dim b1 As EditText
    b1.Initialize("")
    b1=ListaEditText.get(indice-1) ' ya que el List empieza por cero
    b1.RequestFocus

    ' y si quieres que seleccione el texto cuando salte al siguiente...
    b1.SelectionStart=b1.Length 

        
End Sub