Android Question Copy Text in different TextFields / EditText

Private MyList As List
    MyList.Initialize
    MyList.Addall(Array ("Title", "Name", "Family Name", "Date of Birth"))

Sub  btn_CLick
    Dim et() As EditText =Array (EditText1, EditText2, EditText3, Edittext4)  'must declare this after you load the layout, not before
    For i =0 To MyList.Size -1
        et(i).Text= MyList.Get(i)
    Next
End sub

define a global map and initialize it
Sub Globals
  dim myedits as map
End sub
' load your layout
Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Layout1")
    myedits = CreateMap("Field1": editfield_1, "Field2": editfield_2:,"L21_16", L21_TextField_16) ' whatever the names are....
END SUB
sub something
    dim btn as edittext = myedits.Get("L21_16")
    btn.text = "New text"

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private xui As XUI
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    Private EditText1 As EditText
    Private EditText2 As EditText
    Private EditText3 As EditText
    Private viewsmap As Map
    Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    viewsmap.Initialize
    Activity.LoadLayout("Layout")
    viewsmap.Put("Name",EditText1)
    viewsmap.Put("FamilyName",EditText2)
    viewsmap.Put("Birthday",EditText3)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click
    Dim name As String = "Hans"
    Dim familyname As String = "Muster"
    Dim bday As String = "19.12.1968"
    
    Dim edt As EditText = viewsmap.Get("Name")
    edt.Text = name

    Dim edt As EditText = viewsmap.Get("FamilyName")
    edt.Text = familyname

    Dim edt As EditText = viewsmap.Get("Birthday")
    edt.Text = bday
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    
    Root = Root1
    neue_TestPerson.Initialize

'-- load the layout to Root --
    Root.LoadLayout("Layout_20_Testpersonen")
    
    viewsmap.Put("Name", L21_TextField_02)
    viewsmap.Put("FamilyName", L21_TextField_03)
    viewsmap.Put("Birthday", L21_TextField_04)
...

neue_TestPerson = CreateMap("Key02": L21_TextField_02, "Key03": L21_TextField_03, "Key04": L21_TextField_16)

PRIVATE SUB btnCopy_Click
    PRIVATE UserData() AS STRING
   
    UserData = Regex.Split(CRLF, UserText)

    edt_Title.Text = UserData(0).Trim
    edt_Name = UserData(1).Trim
    edt_FamilyName = UserData(2).Trim
    'etc