Dim LiKacl As New List(Of KACL)

'Abfrage
Dim Q = From x In LiKacl, m In x.Members
        Group x By m Into Group
 
'Ergebnisse
For Each x In Q
  Dim Member As String = x.m 'Alle vorkommenden Member
  Dim Gruppen As IEnumerable(Of KACL) = x.Group 'Alle Gruppen mit diesem Member
Next