Элемент текстовый имеет фокус вввода. При нажании опр комбинации клавиш вызывается моя процедура, которая делала так

Dim ctl As control
Dim Pos As Long
On Error GoTo EndErr
Set ctl = Screen.ActiveControl

'MsgBox "Name " & ctl.name & vbCrLf & "Type " & ctl.ControlType
If ctl.ControlType = 109 Then
Pos = ctl.SelStart
ctl.Text = Left(ctl.Text, ctl.SelStart) + " (Моя текстовая строка) " + Right(ctl.Text, Len(ctl.Text) - ctl.SelStart)
ctl.SelStart = Pos
End If
EndErr:

Неработоспособность проявляется при ctl.Text>2048 символов.
На что ее заменить ?

Может через SendMessage(hwnd,WM_PASTE,0,0)

в VB сработало, а для аксесса нехватает hwnd Окна и процедуры копирования в буфер.....

Действительно нехорошо....
Тогда через SendMessage(hwnd,WM_KeyDown,KeyKode,???)

Примеров немогу найти.... такбы я строку по символам отправлял