Imports System

Public Module Module1

    Public Sub Main()

        Dim Rand as New Random()

        Dim Num as Integer

        Num = Rand.Next(1, 11)

    Console.WriteLine(Num)

    End Sub

End Module