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