Checks if the attribute exists in the collection.
Exists(AttributeName As String) As Boolean
Set pLDAP = CreateObject("LDAPClient.3")
Call pLDAP.Connect("ldapserver")
Set pEntries = pLDAP.Search("o=airius.com", "uid=printer1")
For Each pEntry In pEntries
If pEntry.Attributes.Exists( "location" ) Then
MsgBox pEntry.Attributes( "location" ).Values(0).Value
End If
Next