Como gerar um número aleatório entre 1 e 10 usando VB.NET

'Este trecho de código mostra como gerar um número
'randômico entre 1 e 10 (inclusive)

Module Module1
  Sub Main()
    ' Inicializa o gerador de números aleatórios.
    Randomize()
    ' Gera um número aleatório entre 1 e 10 (inclusive)
    Dim numero As Integer = CInt(Int((10 * Rnd()) + 1))

    Console.WriteLine("O número gerado foi: " & numero)

    Console.ReadKey()
  End Sub
End Module