Variable in loop

Jeg ved ikke hvordan jeg skal beskrive min problem stilling, men jeg ønsker følgende.

rsSvar.movefirst
do while not rsSvar.eof
   
iCntQ1 = iCntQ1 + 1
if rsSvar.Fields("Answer") = "Ja" then
  iCntQ1Ja = iCntQ1Ja + 1
end if

rsSvar.movenext
loop

Dette loop køre x antal gange og det er så her jeg gerne vil havde nogle variabler ind. F. Eks.

varnavn(x) = iCntQ1Ja hvor x at tallet for gennemløb, jeg har behov for at kunne bruge disse variabler uden for loop'et