' Grab the text highlighted in Internet Explorer.
Private Sub Command1_Click()
    ' Clear the clipboard.
    Clipboard.Clear

    ' Set focus to the WebBrowser control.
    WebBrowser1.SetFocus

    ' Press Control.
    keybd_event VK_CONTROL, 0, 0, 0
    DoEvents

    ' Press C.
    keybd_event VK_C, 1, 0, 0
    DoEvents

    ' Release Control.
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
    DoEvents

    ' Get the text from the clipboard.
    Text1.Text = Clipboard.GetText
End Sub