counter in VBScript

'counter (pastes numbers)

StartNum = 0 'starrting number
StopNum = 100 'the script stops at this number

a = 815 'fastest it can paste the numbers in discord (for counting channels) b4 discord tells us to slow down
b = 150 'hit enter delay
WScript.Sleep 2000
set wshshell = wscript.CreateObject("wscript.shell")

Dim x
x=StartNum
Do While x<StopNum
x=x+1
wscript.sleep 55
WshShell.SendKeys x
wscript.sleep 55
WshShell.SendKeys "{ENTER}"
Loop