There seems to be nothing wrong with the syntax yet it keeps giving me the "loop" without "do" error.

VBScript Error 800A040E("loop" without "do" error)


Code:
set shell = createobject ("wscript.shell")

' Specify length of names.
intMax = inputbox("Length of text")

' Specify number of names to generate.
intNum = inputbox("Amount
...