Dim Dateiliste() As String
        Dateiliste = System.IO.Directory.GetDirectories("C:\")
        MsgBox(Dateiliste(2))

        Dim MeinArray() As String = New String() {"a", "b", "c"}
        MsgBox(MeinArray(2))

        Dim meinArray(2) As String
        meinArray(0) = "Eins"
        meinArray(1) = "zwei"
        meinArray(2) = "drei"

Dim Array() as String

        Dim meinArray(0) As String
        meinArray(0) = "Null"
 
        '...es tritt ein neuer Fehler auf
 
        ReDim Preserve meinArray(1)
        meinArray(1) = "Eins"
 
        '...es tritt erneut ein Fehler auf
 
        ReDim Preserve meinArray(2)
        meinArray(2) = "Zwei"