Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim rand as random = New Random()

        dim x as integer

        x = rand.next(0, 1001)

        Console.WriteLine(x.tostring)

    End Sub

End Module

​