Dim IncrementingNumberToBESquared As Double = 0
        Dim UserInput As Double = 0
        Dim IntermediateCalculationMultiplication As Double = 0
        Console.WriteLine("Input the number to be tested")
        UserInput = Console.ReadLine()
        While IncrementingNumberToBESquared <> UserInput
            IntermediateCalculationMultiplication = IncrementingNumberToBESquared * IncrementingNumberToBESquared
            If IntermediateCalculationMultiplication > UserInput Then
                UserInput = IncrementingNumberToBESquared
                Console.WriteLine("Not a square Number")
            ElseIf IntermediateCalculationMultiplication < UserInput Then
                IncrementingNumberToBESquared = IncrementingNumberToBESquared + 1
            ElseIf IntermediateCalculationMultiplication = UserInput Then
                UserInput = IncrementingNumberToBESquared
                Console.WriteLine("A squareNumber")
            End If
        End While
        Console.ReadKey()