Вводится последовательность ненулевых чисел, 0-конец последовательности.Найти наименьшее из всех чисел, меньших 15 и его порядковый номер.
1.Что значит ненулевых чисел?
2.Как найти порядковый номер?

Sub qqq()
Dim a#, M#, N&, NM&
M = 1.79769313486231E+308
Do
a = InputBox("Введите число (0 - конец ввода)")
If a = 0 Then Exit Do
N = N + 1
If a < M Then M = a: NM = N
Loop
If M < 15 Then
MsgBox "Наименьшее из всех чисел, меньших 15 = " & M & " Его порядковый номер =" & NM
Else
MsgBox "Увы, не было чисел, меньших 15"
End If
End Sub