Simple routine to get the focused (normally EditText) view:
GetFocused:
Sub GetFocused() as View
Dim jo As JavaObject
Dim vw As View
jo.InitializeContext
Dim window As JavaObject = jo.RunMethodJO("getWindow", Null)
vw=window.RunMethod("getCurrentFocus",Null)
Return vw
End Sub