Sub MyEditText_FocusChanged(Hasfocus As Boolean)
If Hasfocus = True Then
'your code
End if
End sub
another thread Here .. dynamically creates EditTexts which all share the same Focus_Changed event. a global variable is used to store EditText that currently has focus
there are 2 'Similar Threads' at the top which also might be of interest