Imports System

Public Module Module1

    Public Sub Main()

        dim num as integer

        while (num <> 7)

            Console.WriteLine("Please guess a number between 1 and 25")

            num = Console.ReadLine()

        end while

        Console.WriteLine("Well done")

    End Sub

End Module