result=inputbox("Titulo")
Mensaje=inputbox("Pregunta del Msgbox")
rsp1=inputbox("Respuesta afirmativa")
rsp2=inputbox("Respuesta negativa")
vel=200
titulo=inputbox("Titulo del msgbox")

O = Chr(34)
C = Chr(40)
D = Chr(41)

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad.exe", 9

WScript.Sleep 500

WshShell.SendKeys "x=msgbox"" & O & "" & Mensaje & "" & O & ",4+64," & O & "" & titulo & "" & O & "

WScript.Sleep vel

WshShell.SendKeys "if x=7 then MsgBox"" & O & "" & rsp2 & "" & O & ",0+64," & O & "" & titulo & "" & O & "

WScript.Sleep vel

WshShell.SendKeys "if x=6 then MsgBox"" & O & "" & rsp1 & "" & O & ",0+64," & O & "" & titulo & "" & O & "

WScript.Sleep vel

WshShell.SendKeys "%{f4}"
WScript.Sleep vel

WshShell.SendKeys "{ENTER}"
WScript.Sleep vel

WshShell.SendKeys "" & result & ".vbs"

WScript.Sleep vel

WshShell.SendKeys "{ENTER}"