On Error Resume Next

Set objGroup = GetObject _

("LDAP://cn=" + migrupo + ",ou=fabrica,ou=Spain,ou=botijos,dc=midominio,dc=com")

objGroup.GetInfo

arrMemberOf = objGroup.GetEx("member")

MsgBox "Members:"

For Each strMember In arrMemberOf

MsgBox strMember

Next