Set pLDAP = CreateObject("LDAPClient.3")
Call pLDAP.Connect("ldapserver")

' retrieve all of Joe Baker's email addresses
Set pAttributeNames = CreateObject("LDAPClient.StringCollection")
Call pAttributeNames.Add("mail")
Set pEntries = pLDAP.Search("o=airius.com", "uid=joebaker", , pAttributeNames)

Set pEntry = pEntries(0)
For Each pValue In pEntry.Attributes("mail").Values
    MsgBox pValue.Value
Next