Here's your Code

' Subscribe to Sharnav's Tech on YouTube :)

set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
set shell = createobject("wscript.shell")
strtext = inputbox("What would you like the message to be? (Program will start after 5 seconds)")
wscript.sleep(5000)
Do
shell.sendkeys(strtext & "")
Shell.SendKeys "{Enter}"
wscript.sleep(30000)
loop