Imports System

​

Public Module Module1

​

    Sub Main()

        GetMaxFor()

    End Sub

​

    Private Sub GetMaxFor()

        'Selects minimum value of the input numbers  

        Dim i As Integer

        Dim minValue As Decimal

        Dim nIn As Decimal

        minValue = 100000000000

        Console.WriteLine("Enter 10 numbers slowly")

        For i = 1 To 10

            nIn = Convert.ToInt32(Console.ReadLine())

            If(nIn < minValue) Then

                minValue = nIn

            End If

        Next

​

        Console.WriteLine(minValue)

    End Sub

End Module

​