ERROR - The program contains an executable DIM statement that contains
  an  expression  in  the  bounds  list.  Remove the expression from the
  bounds list.  Executable DIM statements can  have  only  constants  or
  variables (simple or subscripted) as bounds.