Dim searcher As New DirectorySearcher(o)
        searcher.Filter = "(&(anr=GlobalGruppeA1)(" & _
          "objectCategory=group))"
 
        Dim results As SearchResultCollection
        results = searcher.FindAll()
 
        Dim result As SearchResult
 
        For Each result In results
            MessageBox.Show(result.Properties("Cn")(0))
        Next