Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim NewScore as Integer

        Dim OldScore As Integer

        Dim HighScore as Integer

        Dim LowScore as Integer

        Do

            Console.WriteLine("Enter a Score")

            NewScore = Console.ReadLine

            If NewScore > HighScore Then

                HighScore = NewScore

            Else If NewScore < HighScore Then

                HighScore = HighScore

            Else If NewScore = HighScore Then

                HighScore = HighScore

            End If

​

            LowScore = OldScore

            If NewScore > LowScore Then

                LowScore = LowScore

            Else If NewScore < LowScore Then

                LowScore = NewScore

            Else If NewScore = LowScore Then

                LowScore = LowScore

            End If

​

            Console.WriteLine("High Score =")

            Console.WriteLine(HighScore)

            Console.WriteLine("Low Score =")

            Console.WriteLine(LowScore)

            OldScore = NewScore

        Loop

    End Sub

End Module

​