dim i as integer
maxnum=a(0)
for i = 1 to ubound(a)
if a(i)>maxnum then maxnum=a(i)
next
end function