Can you concatenate to create dynamic variable names?

Is it possible to create a dynamic variable by concatenating a variable name with another variable name?
Here's what I'm trying to do:
I want sShatterBlade to be sShatterBlade2, then sShatterBlade3, etc where I have sShatterBlade(Cnt), with Cnt being the incremented number. It doesn't seem to work though.

      BladeNum = 5
      Cnt = 2
       While 0 < BladeNum
       Dim sShatterBlade(Cnt) As Shape
       Set sShatterBlade(Cnt) = sShatterBlade.Duplicate
       sShatterBlade(Cnt).RotateEx 45#, 3.21315, 5.305591
       BladeNum = BladeNum - 1
       cnt = cnt + 1
       Wend

Thanks,
Joseph