Sort the collection by the values of named attributes.
SortBy(AttributeName As String, [ SortDirection As
axldapSortDirection = axldapSortDirectionAscending ])
Set pLDAP = CreateObject("LDAPClient.3")
Call pLDAP.Connect("ldapserver")
Set pEntries = pLDAP.Search("o=airius.com", "objectClass=Person")
Call pEntries.SortBy("sn")
Call pEntries.SortBy("givenName")
For Each pEntry In pEntries
MsgBox pEntry.Attributes("sn").Values(0) + ", " + pEntry.Attributes("givenName").Values(0)
Next