Arkadaşlar bu kodda ne yapılmış ?

Dim d(5) as Integer
Redim Preserve d(7)