[VB6] Detection the word under cursor (with UI Automation)

Can someone fix my code so it could find a word, not a paragraph? Also, the code is not working properly with Opera...
Attachment 94175

A lot fo things are missing, I get too many errors.

Add

Code:

---

Private Type POINT
  x As Long
  y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT) As Long

---

at the begining and remove FK StringAndMemory reference.