Imports System

Public Module Module1

    Public Sub Main()

        'create random stuff

        dim nums(9) as decimal

        dim oRand as new Random

        nums(1) = oRand.Next(1000, 10000)

    'oRand is the subject

    'Next is the method 

    End Sub

End Module