Dim i                   As Integer
Dim aiDatentransfer()   As Integer
 
  ReDim aiDatentransfer(0)
  For i = 1 To 500
    ReDim Preserve aiDatentransfer(UBound(aiDatentransfer) + 1)
    aiDatentransfer(i) = i
  Next i