Sub ResizePreserve()
Dim astrNames() As String
Dim intCounter As Integer
Dim vntAny As Variant
ReDim astrNames(1)
astrNames(0) = "A"
astrNames(1) = "B"
ReDim Preserve astrNames(3)
astrNames(2) = "C"
astrNames(3) = "D"
For Each vntAny In astrNames
Debug.Print vntAny
Next vntAny
End Sub