Option Explicit

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
Const EM_GETSEL = &HB0
Dim begintext As Long
Dim curpos As Long
'''''''''''''''''''''''''

Sub TextBox1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

'Получаем 0 (начальная позиция) + число, являющееся позицией курсора
Call SendMessage(Text1.hwnd, EM_GETSEL, begintext, curpos)
'К начальной позиции прибавляем 1, так как она всегда = 0
docursora = Mid$(Text1.Text, begintext +  1 , curpos - begintext)
MsgBox$ "Текст до курсора: ", docursora

End Sub