dim conta
conta=0
for each
conta=conta+1
if conta>15 then exit for
next

capoccia accesa e via