Imports System

Public Module Module1

    Public Sub Main()

        Dim maxResult, minResult, testResult as Integer

        ' Enter the value

        Console.Write("Please enter first result: ")

        testResult = Console.Readline()

        ' Set maximum and mimumum to the first value entered for comparison

        maxResult = testResult

        minResult = testResult

        Do While testResult <> -1

            If testResult > maxResult Then

                maxResult = testResult

            End If

            If testResult < minResult Then

                minResult = testResult

            End If

            Console.Write("Enter next result (-1 to finish): ")

            testResult = Console.Readline()

        Loop

        Console.WriteLine()

        Console.WriteLine("Maximum test result is " & maxResult)

        Console.WriteLine("Minimum test result is " & minResult)

    End Sub

End Module