Даны три числа. выведите на экран их значения и определите большее и меньшее из них. в формате vbs

A = InputBox("Введите a")
min=a
max=a
b = InputBox("Введите b")
if b<min then min=b
if b>max then max=b
c = InputBox("Введите c")
if c<min then min=c
if c>max then max=c
MsgBox "Наибольшее: "+max+"; наименьшее: "+min