Вводится последовательность ненулевых чисел, 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

Ненулевых, значит, неравных нулю)
Порядковый номер - это число, равное (количеству элементов, стоящих до какого-либо (в Вашем случае - минимального) элемента последовательности) + 1.
Программа вроде бы правильная. Если найдено число меньше, чем все предыдущие, запоминается его номер.

а с блок-схемой не поможете



Then Exit Do '- выход из цикла Do ... Loop при вводе нуля (0-конец последовательности).
вот здесь не пойму как делать