Как найти самую легкую и тяжелую монеты из 100 монет разного веса за 150 взвешиваний

A = inputbox("")
max = -9999999
If a > max then max = a ‘сравнение числа с максимальным
end if
msgbox max

a = inputbox("")
min = 9999999
if a< min then  min = a
end if
msgbox min