max 1=b(lbound(b))

For i=lbound(b) to ubound(b)

If max1<; B(i) then max 1=b(i)

then

max=max 1

End function