Imports System

Public Module Module1

    Public Sub Main()

        Dim Number As Integer 

        Dim Biggest As Integer = 0

        Dim Smallest As Integer = 999999

        Do          

            Console.WriteLine("Enter a positive number or -1 to end")

            Number = Console.ReadLine() 

            If Number > Biggest Then    

                Biggest = Number

​

            End If

            If Number < Smallest Then   

                Smallest = Number

​

            End If

        Loop Until Number < 0   

​

        Console.WriteLine("Biggest = " & Biggest)   

        Console.WriteLine("Smallest = " & Smallest) 

    End Sub

End Module