Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

Use the Preserve keyword to keep the values

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