Set wshshell = wscript.CreateObject("WScript.Shell")
txt = InputBox("Enter Your Text Here :)")
wscript.sleep 5000
wshshell.sendkeys txt
wshshell.sendkeys txtAnyName.vbs