Dim loi As New List(Of Integer)
        loi.Add(13)
        loi.Add(7)
        loi.Add(52)
 
        Dim res = loi.Where(Function(x) x < 50)
 
        Dim loilt50 = New List(Of Integer)(res)

        Dim di As New IO.DirectoryInfo("C:\")
 
        Array.ForEach(di.GetDirectories(), New Action(Of IO.DirectoryInfo)( _
          AddressOf TestDI))
 
    '....
 
    Private Sub TestDI(ByVal di As IO.DirectoryInfo)
        Debug.WriteLine(di.Name)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist