Нахождение максимальной и минимальной цифр данного четырехзначного числа - VB

dim a,c,e, b(4) as integer
dim min,max as integer
a=inputbox("Введите число")
 
for c=1 to 4
b(c)=mid(a,c,1)
b(c)=val(b(c))
next c
min = b(1)
max =b(1)
for c=1 to 4
if min>b(c) then
min = b(c)
end if
 
if max<b(c) then
max = b(c)
end if
next c
print "Данное число";a
print "Максимальное";max
print "Минимальное";min