'benötigte API-Funktionen und Konstanten
Private Declare Function SendMessage Lib "user32" Alias _
  "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As _
  Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_LINEINDEX = &HBB
 
Private Type EditCursorPos 
    Row As Long
    Col As Long
End Type