Dim MyValue
MyValue = Int((8 * Rnd) + 1) ' Genera un valore casuale compreso tra 1 e 8.