Const EM_POSFROMCHAR = &HD6
Сообщение EM_POSFROMCHAR получает координаты заданного символа в текстовом поле или rich edit control
Координаты левого верхнего угла заданного символа. Начало координат находится в левом верхнем углу клиентской области элемента. Координаты могут быть отрицательными, если символ находится за пределами клиентской области
' Получим координаты 2 символа
' Поместите на форме текстовое поле Text1
Dim retval As Long
retval = SendMessage(Text1.hwnd, EM_POSFROMCHAR, 1, 0)
MsgBox retval