Dim StaedteNachLand = From c In Staedte
                              Group c By c.Country Into test
                              Select New clsGroup(Of clsCity)(test.key, test)

Dim StaedteNachLand = From c In staedte
                              Group c By Key = c.Country Into Group _
                              Select Country = Key, StadtListe = Group

        For Each item In StaedteNachLand
            Console.WriteLine("Städte in '{0}:'", item.Country)
            For Each s In item.StadtListe
                Console.WriteLine(s.Name)
            Next
        Next