Come controllare che il valore immesso non superi il valore limite di 10000?

[lotto_tom75]

Dato che questa funzione input sembra avere il limite di 10000 come fare per non dare errore e per non bloccare lo script in caso di immissione errata per sbaglio o disattenzione di un valore che supera questo limite?

numerocolonne = CInt(InputBox("QUANTE COLONNE RANDOM ANALIZZARE (max 10000)",,10000))

Al momento se viene immesso 10001 ad esempio lo script viene bloccato con errore di over flow...
mentre a me piacerebbe avvertire che è stato messo un valore non contemplato dallo script
e far riprovare ad immettere un valore entro i limiti o terminare lo script in modo normale...

E' possibile immettere questo tipo di controllo? Se si come fare?

Thanks!

 

[Mike58]

Tom prova cosi

Sub Main
	numerocolonne = CInt(InputBox("QUANTE COLONNE RANDOM ANALIZZARE (max 10000)",,10000))
	If numerocolonne <= 10000 Then Scrivi "valore immesso = " & numerocolonne & " esatto "
	Ini = EstrazioneFin - 100
	fin = EstrazioneFin
	For es = Ini To Fin
		If numerocolonne > 10000 Then Exit For
		'If numerocolonne =< 10000 Then Scrivi "valore immesso = " & numerocolonne & " esatto "
		Scrivi Es
	Next
	Scrivi " valore troppo alto ..... Riprovare "
End Sub