un altro esempio è questo
codice:
Dim Stringa As String

Ano:
Randomize

Stringa = InputBox("Inserisci il numero massimo", "", "10")

If Not Stringa = "" And IsNumeric(Stringa) = True Then

MsgBox Int(Rnd * 10) + 1

Else

GoTo Ano

End If
così ti dà un numero a caso che arriva fino al numero che inserisci nella inputbox