Sub Arraytest()
 
  Dim sFile() As String
  Dim intI As Integer
 
  ReDim Preserve sFile(1)
  sFile(0) = "Element0"
 
  For intI = 0 To 4
    ReDim Preserve sFile(UBound(sFile) + 1)
    sFile(UBound(sFile)) = "Element" & UBound(sFile)
  Next
 
  For intI = LBound(sFile) To UBound(sFile)
    Debug.Print sFile(intI)
  Next
 
End Sub