Вернуть элемент, наиболее часто встречающийся в массиве - VB

sub GGwest
dim a(1 to 5,1 to 5)as long,b(1 to 20) as long,r as long,c as long,max as long,maxV as long
dim s(1 to 5)
randomize
for r=1 to 5
  for c=1 to 5
    a(r,c)=int(rnd*20)+1
    b(a(r,c))=1+b(a(r,c))
    if b(a(r,c))>max then max=b(a(r,c)):maxV=a(r,c)
    s(c)=s(c)+a(r,c)
  next c
next r
msgbox "Наиболее часто-встречаемый элемент = " & maxV
msgbox join(s)
end sub