Как вставить свою строку в опознанное текстовое окно стороннего приложения ? - VB

Формулировка задачи:

"Любому терпенью приходит конец..." Подскажите, ПЛЗ, уже два дня ищу в нашем поиске Есть хендл чужого TextBox-а, открытого для ввода, и надо заменить его содержимое на новую строку. и ЭТО 28000 раз !! Сделал через имитацию двойного клика и ввода по символам через SendKeys. В общем-то работает, но бывают какие-то сбои и новая строка вводится в конец старой Покажите как через АПИ сменить строки (ведь должно делаться одной строкой типа SendMessage или PostMessage...)

Решение задачи: «Как вставить свою строку в опознанное текстовое окно стороннего приложения ?»

textual
                            Листинг программы 
                        

                            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 WM_SETTEXT = &HC
 
Private Sub Form_Load()
    Dim Text As String
    Text = "New text"
    SendMessage TextBox.hwnd, WM_SETTEXT, 0, ByVal Text
End Sub
                        