ziemlich einfach, man nehme ein Datenfeld, oder array

dim variable (10) as byte
dim merker as byte

do
incr merker
variable(merker)= was auch immer
loop until merker=10