dim suche
dim site
suche=inputbox("Nach was wollen Sie suchen?","Suche")
Replace(suche," ","+")
site="https://www.google.de/?gws_rd=ssl#q=". & suche
set wshshell=createobject ("wscript.shell")
wshshell.run site