Imports System

Public Module Module1

​

    Sub Main()

        Dim random As New Random()

​

        ' Enter a loop.

        Do

            ' Get random number.

            Dim number As Integer = random.Next

​

            ' Print random number.

            Console.WriteLine(number)

​

            ' Exit loop if we have an even number.

            If number Mod 2 = 0 Then

                Exit Do

            End If

        Loop

​

    End Sub

​

End Module