List AD User's group memberships in a listbox in Vb.net 2017

Public Sub GroupprUser()
        Dim GroupDE As New DirectoryEntry("LDAP://CN=" & txtADBox.Text & ",OU=NAZ,OU=User Accounts,DC=one,DC=xxx,DC=xxx,DC=org")



        Dim Members As Object = GroupDE.Invoke("Members", Nothing) '<<< Get members

        For Each Member As Object In CType(Members, IEnumerable)  '<<< loop through members

            Dim CurrentMember As New DirectoryEntry(txtADBox.Text) '<<< Get directoryentry for user

            MessageBox.Show(CurrentMember.Name.Remove(0, 3))  '<<< Show each user's name in a messagebox
        Next
[embed=file 1266291]
Please help EE Thanks Guys

    End Sub

Select allOpen in new window