Imports System

Imports Microsoft.VisuaLBasic

​

Public Module Module1

​

    Public Sub Main()

        Dim mynumber = 0

        Do until myNumber = 5

            Console.WriteLine("Pick a number between 1 and 6")

            myNumber = Console.ReadLine()

            If myNumber = 5 Then

                Console.WriteLine("Yes 5, is the lucky number!")

            Else

                Console.WriteLine("Oops that is not the lucky number!")

            End If

        Loop

​

        Console.ReadLine()

    End Sub

End Module

​