Dim ZeitpunkteBeginn As New ArrayList
Dim AnfangA, AnfangB, AnfangC, AnfangD as Date
ZeitpunkteBeginn.Add(AnfangA)
ZeitpunkteBeginn.Add(AnfangB)
ZeitpunkteBeginn.Add(AnfangC)
ZeitpunkteBeginn.Add(AnfangD)
ZeitpunkteBeginn.Sort()
 
Dim i As Integer
                    For i = 0 To ZeitpunkteBeginn.Count - 1
                        TextBox1.Text = TextBox1.Text + (ZeitpunkteBeginn(i)) + _
                          vbNewLine
                    Next

Dim AnzahlTageList As New ArrayList
                    Dim tage As Integer
                    Dim n As Integer
                    For n = 0 To ZeitpunkteBeginn.Count - 1
                        tage = (DateDiff("d", ZeitpunkteBeginn(n), _
                          ZeitpunkteEnde(n)))
                        AnzahlTageList.Add(tage)
                    Next
 
                    Dim x As Integer
                    For x = 0 To AnzahlTageList.Count - 1
                        TextBox3.Text = TextBox3.Text + (AnzahlTageList(x)) + _
                          vbNewLine' hier tritt der Fehler auf
                    Next

----
Meine Komponenten sind:
Visual Studio 2008 (Standard) SP 1
Windows 7 SP 1