﻿
sub test
  
Dim Folder(1) As String
Dim i As Integer = 5
Folder(1) = "1111111111111"
Redim Preserve Folder[i] 

Folder[i]  = "i"

Print Folder[1]
Print Folder[i]
end sub

test
