dynamiske variabler

Jeg skal oprette x antal variabler med navnene 'strantal1','strantal2','strantal3', osv.

Ud fra en variabel 'antal' skal variablene oprettes i en for-løkke og tildeles en værdi 'value'

Jeg havde forestillet mig noget i stil med:

for i = 1 to antal
Dim strantal+i= value
next

Hvordan skal det løses?