Variables in VBA loops -

I try to run a VBA application using a loop and use the variable, whose name is loop I am at where I am. Especially something like

  dim I as integer i = 1 dim character () as string while i   
 In some way it can not be read by varnam (i) or whatever it is read, it reports the subcript out of bounds. 
 I have no idea what the problem is, can someone help me?   
 
 
 You need to give your array the first capability.  
  All Max () Dim I as Integer i = 1 Dim varname () String Redemption Variant (49) '& lt; --- While I & lt; This is a good source for VBA arrays:    50 Varname (i) = asdasd i = i + 1 vend and all