German EditText-Feld in Liste konvertieren

Private Sub B4XComboBox1_SelectedIndexChanged (Index As Int)
    If Index <> 0 Then xui.MsgboxAsync(B4XComboBox1.GetItem(Index) & " selected.","Selection")
    Log(B4XComboBox1.GetItem(Index))
End Sub
Private Sub Button1_Click
    Dim strtext As String = TextArea1.Text         ' in B4A use an EditText view
    Dim lst As List = Regex.Split(CRLF,strtext)    ' CRLF is the delimiter like a comma or a semi-colon
    B4XComboBox1.SetItems(lst)   
    B4XComboBox1.cmbBox.Items.InsertAt(0,"<Select an E-mail address>")
    B4XComboBox1.SelectedIndex = 0
End Sub