Imports System

Public Module Module1

    Public Sub Main()

        Dim max As integer 

        Dim times As integer

        Dim number As integer

        Console.WriteLine("Please enter a number.")

        max = console.ReadLine()

        for times = 1 to 9

        console.WriteLine("PLease enter a number.")

        number = console.ReadLine()

        If max < number then

            max = number

        end if 

    Next

    Console.WriteLine("The maximum number of the ten numbers is " & max & ".")

    End Sub

End Module