Местоположение курсора в текстовом поле и указатель мыши

Option Explicit
Dim tt As String, s As String, t1 As String
Dim n%, n1%, n2%, i%
 
Private Sub txtT_Click()
    tt = txtT.Text
    tt = " " + tt + " "
    n = txtT.SelStart + 2
    If Bu(Mid(tt, n, 1)) Then n2 = n Else n2 = n - 1
    n1 = n
    On Error GoTo 2014
    
    For i = n To n + 20
        t1 = Mid(tt, i, 1)
        If Not Bu(t1) Then Exit For
        n2 = i
    Next i
    
    For i = n To 2 Step -1
        t1 = Mid(tt, i - 1, 1)
        If Not Bu(t1) Then Exit For
        n1 = i - 1
    Next i
    s = Mid(tt, n1, n2 - n1 + 1)
    lblL.Caption = s
2014
End Sub
 
Private Function Bu(z As String) As Boolean
    Bu = False
    If z >= "a" And z <= "z" Then Bu = True
End Function
 
Private Sub txtT_MouseMove(Button As Integer, Shift As Integer, _
                                                         X As Single, Y As Single)
'    lblL.Caption = Str(Int(X / 200) + 1) + " " + Str(Int(Y / 300))
End Sub

Option Explicit
Private Const EM_CHARFROMPOS& = &HD7
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 Sub txtText_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Pos As Long
    X = ScaleX(X, vbTwips, vbPixels): Y = ScaleY(Y, vbTwips, vbPixels)
    Pos = CLng(X) + (CLng(Y) * &H10000)
    Me.Caption = GetWord(txtText, Pos)
End Sub
 
Private Function GetWord(Text As TextBox, Pos As Long) As String
    Dim ptChar As Long, PtLine As Long
    Dim ptStart As Long, ptEnd As Long
    ptChar = SendMessage(Text.hWnd, EM_CHARFROMPOS, 0, ByVal Pos)
    PtLine = ptChar \ &H10000
    ptChar = ptChar And &HFFFF&
    If ptChar <= 0 Then Exit Function
    ptStart = ptChar
    Do Until ptStart <= 0
        If Mid$(Text.Text, ptStart, 1) <= " " Then Exit Do
        ptStart = ptStart - 1
    Loop
    ptEnd = ptChar
    Do Until ptEnd > Len(Text.Text) Or Mid$(Text.Text, ptEnd, 1) <= " "
        ptEnd = ptEnd + 1
    Loop
    If ptStart = ptEnd Then Exit Function
    GetWord = Mid$(Text.Text, ptStart + 1, ptEnd - ptStart - 1)
End Function