В массиве из 10 элементов заполненном путём ввода данных найти произвидение максимального и минимального элементов!

dim massiv(9) as integer
for i=0 to 9
massiv(i)=inputbox("Введите " & i & " число")
if i=0 then a=massiv(0) : b=massiv(0)
if massiv(i ) > a then a=massiv(i)
if massiv(i) < b then b=massiv(i)
next i
msgbox(a*b)