Set objshell = createobject("wscript.shell")
Objshell.sendkeys "Estas son las teclas"

Set objshell = createobject("wscript.shell")
Set bloc = objshell.exec("notepad")			'ejecutamos el bloc de notas
Wscript.sleep 2000					'espera de dos segundos
Objshell.appactivate bloc.processid			'ponemos el foco en la ventana del bloc
Wscript.sleep 200					'espera de milesimas
Objshell.sendkeys "Tutorial vbs"			'enviamos un mensaje con sendkeys
Objshell.sendkeys "{ENTER}"				'luego del mensaje anterior, un ENTER
Wscript.sleep 2000					'nueva espera de dos segundos
Objshell.sendkeys "Probando la funcion sendkeys"	'enviamos una segunda linea de mensaje

Dim sVariable 
sVariable = InputBox("Ingrese su nombre")
MsgBox(sVariable)