Dim arr As New List(Of Object)
 
        arr.Clear()
 
        arr.Add(1)
        arr.Add(5)
        arr.Add(10)
        arr.Add(15)
        arr.Add(Nothing)
 
        Dim enumerator As List(Of Object).Enumerator
 
        enumerator = arr.GetEnumerator
 
        While enumerator.MoveNext
            If IsNothing(enumerator.Current) Then
                MsgBox("geht ja schonmal gar ned")
            Else
                MsgBox(enumerator.Current)
            End If
        End While