Variable in variable

[Wries]

Hello All,
Is something like the below possible?

Dim i as Byte
Dim Rank1, Rank2, Rank3 as String

for i = 1 To 3
Rank&i = 'cell reference value
next i

thanks a lot,
Wries