[Iska]

Замените в оригинальном скрипте ту же часть на:

Код:

Dim strValue

strValue = Trim(InputBox("Enter start number", "Enter number", 1))

If Len(strValue) = 0 Then
	WScript.Quit 1
End If

If Not IsNumeric(strValue) Then
	WScript.Echo "Need numeric value"
	WScript.Quit 2
End If

nArjNumber = CInt(strValue)