Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", "http://www.randominsults.net/", False
o.send
'MsgBox( o.responseText )

search = "<strong><i>"
endsearch = "</i></strong>"
linenum = InStr( o.responseText, search )
lineend = InStr( o.responseText, endsearch )
result = Mid( o.responseText, linenum + Len(search), lineend - linenum - Len(search) )

'MsgBox( result )

Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys( result )