German Zirkelverweis vermeiden?

Sub Globals
    Dim FocusId As Int
    Dim EditText1, EditText2 As EditText
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("layout01")
   
End Sub
 
Sub EditText2_TextChanged (Old As String, New As String)
    If FocusId = 2 Then EditText1.Text = New
End Sub
 
Sub EditText2_FocusChanged (HasFocus As Boolean)
    If HasFocus = True Then FocusId = 2
End Sub
 
Sub EditText1_TextChanged (Old As String, New As String)
    If FocusId = 1 Then EditText2.Text = New
End Sub
 
Sub EditText1_FocusChanged (HasFocus As Boolean)
    If HasFocus = True Then FocusId = 1
End Sub