Бэйсик!!!! Нужна срочная помощь!

sub ppp()
dim AA(5,7)
'последний из столбцов, значит считая справа налево - он первый.
kk = 0
for jj = 7 to 1 step -1
for ii = 1 to 5
if AA(ii,jj)) <=0 then
exit for
end if
if ii = 5 then
kk = jj
end if
next ii
if kk>0 then
exit for ' нашли "положительный" столбец
end if
next jj
if kk > 0 then
'тут меняем столбец kk с P
for ii = 1 to 5
temp = AA(P)
AA(P)=AA(kk)
AA(kk)=temp
next ii
end if
end sub