Imports System

Public Module Module1

    Public Sub Main()

        dim maxresult, minresult, testresult as Integer

        ' Enter the value

        console.writeline("Please enter the first result: ")

        testresult = console.readline()

        ' set maximum and minimum 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