Imports ActiveDs 'Verweis hinzufügen unter com -> Interop.ActiveDS

 Dim grp As IADsGroup
        Dim memberList As IADsMembers
        Dim member As IADs
 
        On Error GoTo Fehler
 
        grp = GetObject("WinNT://Praxis/GruppeTest")
        memberList = grp.Members
        For Each member In memberList
 
            TextBox1.Text = TextBox1.Text & (member.Name) & vbCrLf 
        Next