Questa torna un numero a caso fra 1 e 10:

codice:
    Function Randomize() As Integer
        Dim myNewNumber As New Random
        Return myNewNumber.Next(1, 10)
    End Function