Sub Initialize
	'two tests
	'one redim every iteration in a loop
	'one that redims an array of maxsize
	Dim max As Integer
	max = 32000
	Redim everyIterationArray( 1 ) As String, bigArray( 1 ) As String
	Dim tempArray As Variant
	Dim i As Long
	Dim start As Single
	
	
	start = Timer()
	
	For i = 1 To max
		Redim Preserve everyIterationArray( i )
		everyIterationArray( i - 1) = "asdfasdfasdfasdfasdfasdfasdfasd" +_ 
		"fasdfasdfasdfasdfasdfasdfasdfasdfasdfasdfasdfasdfasdfasdfasdfasd"
	Next	
	
	Print Cstr( max ) + " redims: " + Cstr( Round( Timer() - start, 2) ) +_
	". Content-size of array: " + Cstr( Len( Join( everyIterationArray ) ) )
	
	Redim Preserve bigArray( max )
	start = Timer()
	For i = 1 To max
		bigArray( i - 1) = "asdfasdfasdfasdfasdfasdfasdfasdfasdfasdfasd" +_ 
		"fasdfasdfasdfasdfasdfasdfasdfasdfasdfasdfasdfasdfasd"
	Next	
	
	Print "One ReDim to " Cstr( max ) + ": " + Cstr( Round( Timer() - start, 2) ) +_
	". Content-size of array: " + Cstr( Len( Join( bigArray ) ) )	
End Sub