Помогите, пожалуйста, написать программу на VBA.Определить порядковые номера нулей в массиве.

sub ppp()
dim aa(23)
' тут надо заполнить массив как-нибудь
ss = ""
for ii = 1 to 23
if aa(ii) = 0 then
ss = ss+str(ii)+", "
endif
next ii
msgbox(ss)
end sub