Нахождение минимального элемента массива - Visual Basic .NET

Формулировка задачи:

Код:

Dim zapros, min, max, bigmin, zaproschislsa As Double
        min = 0
        max = 0
        bigmin = 0
        zapros = InputBox("Введите кол-во чисел")
        For job = 1 To zapros
            zaproschislsa = InputBox("Введите число")
            If zaproschislsa > max Then
                max = zaproschislsa
            End If
            If zaproschislsa < max Then
                min = zaproschislsa
            End If
            If zaproschislsa < min Then ' работа с самым маленьким числом
                bigmin = zaproschislsa
            End If
        Next
        MsgBox("Результат. Максимальное: " & max & " Минимальное: " & min & " Самое минимальное: " & bigmin)

Проблема с счетчиком самого минимального числа.В него не засчитывает вообще.Может что-то не так делаю? Подскажите

Решение задачи: «Нахождение минимального элемента массива»

textual
                            Листинг программы 
                        

                            Dim inputStr = InputBox("Введите числа через пробел")
Dim strIntegers = New List(Of String)(inputStr.Split(" "))
Dim minimal = Int32.MaxValue
Dim maximal = Int32.MinValue
For Each element As String In strIntegers
    Dim number = Int32.Parse(element)
    ' выбор минимального
    If number < minimal Then
        minimal = number
    End If
    ' выбор максимального
    If number > maximal Then
        maximal = number
    End If
Next
MsgBox(String.Format("Минимальное: {0}{2}Максимальное: {1}", minimal, maximal, vbCrLf))
                        