Visual Basic последнее min число из вводимых чисел!

[Serge_Bliznykov]

ну так в чём проблема - заведите ещё две переменные:
счётчик введённых чисел (его каждый раз после ввода X надо увеличивать на единицу) и позицию найденного минимального значения
типа так:

   x = InputBox(...)
   i = i + 1
   if положительное и минимальное Then
     min = x
     IMin = i
   End if