求助VBA数组，求数组中最大值

如B列中有：3、100、5、6、61、11、3，用VBA代码把B例中的数值放入数组中，再求数组中的最大值100。数组的个数不确定，请赐教代码，谢谢！

excelhome论坛怎么进不去了？

冒泡比较不就可以了么

sub bj()
arr=range("b:b")
for each ar in arr
if temp<ar then temp=ar
next ar
msgbox temp
end sub