Dim i             As Long
  Dim sArray()      As String
 
  ' Eindimensionales Array neu Dimensionieren
  ' Alle Daten des Array's gehen verloren!
  ReDim sArray(5)
  For i = 0 To 5
    sArray(i) = "Wert " & i
  Next
  ' Eindimensionales Array erweitern
  ' Die Daten bleiben wo sie sind
  ReDim Preserve sArray(10)
 
  ' Das Array Zweidimensional neu Dimensionieren
  ' Alle Daten des Array's gehen verloren!
  ReDim sArray(5, 1)
  For i = 0 To 5
    sArray(i, 0) = "Wert " & i & " 0"
    sArray(i, 1) = "Wert " & i & " 1"
  Next i
  ' Zweidimensionales Array erweitern
  ' Alle Daten des Array's gehen verloren!
  ReDim sArray(10, 1)
  ReDim sArray(10, 2)
  ReDim sArray(10, 2, 1)
  ' 2te Dimension des Arrays erweitern
  ' Die Daten bleiben wo sie sind
  ReDim Preserve sArray(5, 2, 2)