Private Sub Пуск_Click()
Dim min, I, x, N As Single
min = 15
I = 0
Do
x = Val(InputBox("Введите число из последовательности"))
I = (I + 1)
Print I; "чило ="; x
If x < min Then min = x: M = I
Loop Until x = 0
Print "Наименьшее число (меньше 15) ="; min
Print "Его порядковый номер ="; M
End Sub


Работает вроде, без ошибок. ANSWER, если будешь эту программу себе копировать замени все переменные, сдается мне, что ты из политеха, и сдавать будешь как и я Гаховой Н.Н.