dim nome, sobrenome, nomeCompleto

set shell = WScript.CreateObject("wscript.shell")
shell.run("calc.exe")

nome = inputbox("Qual o seu nome ?")
sobrenome = inputbox("Qual o seu sobrenome ?")

nomeCompleto = nome &" "& sobrenome

msgbox(nomeCompleto)