Найти наименьшее из всех чисел, меньших 15 и его порядковый номер - VB

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

Помогите исправить косяк с порядковым номером,плиз

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim N, i As Integer, MIN, x As Single
N = Val(InputBox("Введите N"))
i = 0: MIN = 15
Do While i < N
x = Val(InputBox("Введите х"))
If x < MIN Then
MIN = x: i = i + 1
Print "MIN=", MIN
Print i, "порядковый номер"
ElseIf x = 0 Then
Print "конец ввода"
MsgBox MIN, , "MIN="
MsgBox i, , "порядковый номер"
Else:
Print "Ввeдено число больше минимального. Минимальное значение=", MIN
End If
Loop
End Sub

Решение задачи: «Найти наименьшее из всех чисел, меньших 15 и его порядковый номер»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim N As Integer, i As Integer, MIN As Single, porN As Integer, x As Single
Cls
N = Val(InputBox("Введите N")) 'непонятно, зачем ограничивать длину ряда
i = 0: porN = 0: MIN = 15
Do While i < N                 'делать петлю до тех пор , пока количество элементов не превысит числа N
    i = i + 1
    x = Val(InputBox("Введите X (" & i & ")"))
    If x = 0 Then Print "Конец ввода": Exit Do
    If x < MIN Then
           MIN = x: porN = i
           Print "Мин. знач. = " & MIN & "  Порядковый номер = "; porN
    Else:
           Print "Ввeдено число " & x & " , не меньше минимального. Мин. знач.="; MIN
    End If
Loop
If porN = 0 Then MsgBox "Не было введено ни одного значения меньше 15": Exit Sub
MsgBox "Минимальное значение = " & MIN & vbCrLf & _
       "Порядковый номер = " & porN, , "Результат"
End Sub