Resolved
This is currently Working
Private Function GroupMemberOf() As Boolean
Try
Dim group As New DirectoryEntry("LDAP://cn=Remote Desktop Users, cn=Builtin, dc=Test, dc=net")
group.Properties("member").Add("cn=TestGroup2, ou=Test, dc=TEST, dc=net")...