Программная передача текстового фрагмента в приложениях Windows

Private Sub Form_Click ()
   Const CF_TEXT = 1   '' Define bitmap format.
   Dim I, Msg, Temp   '' Declare variables.
   On Error Resume Next   '' Set up error handling.
   Msg = 'Type anything you like into the text box below.'
   Text1.Text = InputBox(Msg)   '' Get text from user.
   Msg = 'Choose OK to copy the contents of the text box '
   Msg = Msg & 'to the Clipboard.'
   MsgBox Msg   '' Display message.
   ClipBoard.Clear   '' Clear Clipboard.
   Clipboard.SetText Text1.Text   '' Put text on Clipboard.
   If Clipboard.GetFormat(CF_TEXT) Then
      Text1.Text = ''   '' Clear the text box.
      Msg = 'The text is now on the Clipboard. Choose OK '
      Msg = Msg & 'to copy the text from the Clipboard back '
      Msg = Msg & 'to the text box.'
      MsgBox Msg   '' Display message.
      Temp = Clipboard.GetText(CF_TEXT)   '' Get Clipboard text.
      For I = Len(Temp) To 1 Step -1   '' Reverse the text.
         Text1.Text = Text1.Text & Mid(Temp, I, 1)   
      Next I
   Else
      Msg = 'There is no text on the Clipboard.'
      MsgBox Msg   '' Display error message.
   End If
End Sub

Dim IExp As InternetExplorer 
Dim IEDocument As Object 
Dim IEBody As Object 
Dim IETextRange As Object 
Dim HTMLCode 
 
''Главная процедура
Public Sub ReadHTML
 
''Цикл по всем окнам IE
For Each IExp In ShellWindows
 
''Получить содержимое и определить его тип
Set IEDocument = IExp.Document 
 
If TypeOf IEDocument Is HTMLDocument Then
 
Set IEBody = IEDocument.Body 
Set IETextRange = IEBody.createTextRange() 
HTMLCode = IETextRange.HTMLText ''Текст веб-страницы
 
End If
 
Next 
 
end sub