Spanish SOLUCION(B4J) Al intentar limitar la longitud de un Textfield el cursor salta al principio del texto

Sub txtTitulo_TextChanged (old As String, new As String)
    Dim longitud As Int = txtTitulo.Text.Length
    If longitud > maxTitulo Then 'Variable preestablecida con la longitud máxima
        'He probado con las dos opciones siguientes
'        txtTitulo.Text = old '*1*
        txtTitulo.Text = new.SubString2(0, maxTitulo) '*2*
    End If
End Sub

Sub txt1_TextChanged (Old As String, New As String)

    Dim sb As StringBuilder
    sb.Initialize
    For i = 0 To New.Length - 1
        If "0123456789".IndexOf(New.CharAt(i)) > -1 Then
        sb.Append(New.CharAt(i))
        End If
    Next
    If sb.ToString.Length > 3 Then
        txt1.Text = sb.ToString.SubString2(0,3)
    Else
        txt1.Text = sb.ToString
    End If
    txt1.SetSelection(txt1.Text.Length, txt1.Text.Length)
End Sub

Sub txtTitulo_TextChanged (old As String, new As String)
    Dim posicion As Int = txtTitulo.SelectionStart
    Dim longitud As Int = txtTitulo.Text.Length  
    If longitud <= maxTitulo Then 'Variable preestablecida con la longitud máxima
        lblTituloCount.Text = txtTitulo.Text.Length & "/" & maxTitulo
    Else
        txtTitulo.Text = old
        txtTitulo.SetSelection(posicion-1, posicion-1)
    End If
    lblTitulo.Text = txtTitulo.Text
End Sub