[das_kindlein_schreit]

    Dim Feld1() As Integer    ' Dynamisches Datenfeld deklarieren.
   
    Redim Feld1(5)        ' 5 Elemente reservieren.
    For I = 1 To 5        ' 5 Schleifendurchläufe.
        Feld1(I) = I    ' Datenfeld initialisieren.
    Next I

Die nächste Anweisung ändert die Größe des Datenfeldes und löscht die Elemente.

    Redim Feld1(10)        ' Größe auf 10 Elemente ändern.
    For I = 1 To 10        ' 10 Schleifendurchläufe.
        Feld1(I) = I    ' Datenfeld initialisieren.
    Next I

Die nächste Anweisung ändert die Größe des Datenfeldes, löscht die Elemente jedoch nicht.

    Redim Preserve Feld1(15)    ' Größe auf 15 Elemente ändern.

http://www.office-loesung.de/ftopic278056_0_0_asc.php
http://www.google.de