Dim fehlerliste As New List(Of String)
        fehlerliste.AddRange(meinArray)
        fehlerliste.Add("Ende der Liste...")

        Dim lstArray() As String = fehlerliste.ToArray

        For Each item As String In fehlerliste
            MessageBox.Show(item)
        Next
 
        '... ist das Gleiche, wie ...
 
        If fehlerliste.Count > 0 Then
            For i As Integer = 0 To fehlerliste.Count - 1
                MessageBox.Show(fehlerliste(i))
            Next
        End If

        If fehlerliste.Count > 0 Then
            For i As Integer = fehlerliste.Count - 1 To 0 Step -1
                MessageBox.Show(fehlerliste(i))
            Next
        End If