1. You should avoid repeating code. It is not needed and it is difficult to maintain. You can easily create one or two For loops to add all these items.
txtEvents is an EditText. You should remove the IME_HandleAction event and instead handle the EditText_EnterPressed event.
Sub txtEvents_EnterPressed
Dim te As EditText = Sender
Log(te.Text)
End Sub