VBscript counting

Does anyone know how to make a simple VBscript that can count from 1 to 100 in notepad? I know its something along the lines of

Code (Text):

1. set wshell = createobject("wscript.shell")
2. createobject("wscript.shell")
3. wscript.sleep 5000
4. for i=1 to 100
5. wshell.sendkeys "YOUR MESSAGE HERE"
6. wshell.sendkeys "{enter}"
7. next
8.  

That will spam whatever you put in YOUR MESSAGE HERE 100 times but I want the code where it will go from 1 then go to 2, 3, 4, 5 etc. I know its like 1 line of code that you can change but I don't know what it is.

 

should go something like

createobject("wscript.shell")
wscript.sleep 5000
for i=1 to 100
wshell.sendkeys %%i
wshell.sendkeys "{enter}"
next

I know for a fact that you will use the "i" as the var as this is the one incrementing

 

Well that doesn't work because I just tried it.