Imports System

Imports Microsoft.VisualBasic

​

Public Module Module1

    Public Sub Main()

        Dim guess As Integer

        Console.WriteLine("Input the correct number: ")

        guess = Console.ReadLine

        If guess = 7

            Console.WriteLine("Well Done")

        Else Console.WriteLine("Try again")

        End If

    End Sub

End Module