Input Box Question with Code

[K Dales]

Your Reply variable is an integer, and the max value
allowed for integers is 32767.

A Long variable type will let you go to 2,147,483,647 - so
change your Dim statement to this:

Dim Response as Long