DIM tabelle(6) as byte
dim idx as byte

for idx = 1 to 6
tabelle(idx) = 0
next

VORSICHT : Basic indiziert von Basis 1 (nicht 0, wie C)