Вставить текст - VB

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

Добрый день! Прошу помочь с решением такой задачи. На компьютере отрыт word а по верх него форма. На форме есть listbox1 при двойном нажатии копируем в буфер выделенный элемент, скрываем форму далее форма скрывается (с этим понятно) и скопированный текст вставляется в word в позицию где был курсор. Как собственно вставить текст?

Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
 
        Clipboard.Clear()
        Clipboard.SetText(ListBox1.SelectedItem)
 
        Me.WindowState = FormWindowState.Minimized 
        Me.ShowInTaskbar = False 
 
End Sub

Решение задачи: «Вставить текст»

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

                            Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Integer, ByVal bScan As Integer, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Private Const KEYEVENTF_KEYUP = &H2 'событие отпускания клавиши
    Private Const VK_LCONTROL = &HA2 ' Левый Ctrl
    Private Const VK_V = &H56 'кнопка V 
 
Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick
        If ListBox1.SelectedIndex > 0 Then
 
            Clipboard.Clear()
            Clipboard.SetText(ListBox1.SelectedItem)
            Me.WindowState = FormWindowState.Minimized
            Me.ShowInTaskbar = False
 
            Call keybd_event(VK_LCONTROL, 0, 0, 0) 'Hажимаем
            Call keybd_event(VK_V, 0, 0, 0) 'Hажимаем
            Call keybd_event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем
            Call keybd_event(VK_V, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем
 
        End If
    End Sub
                        