private Function GetEntryString( ByVal dirEntry as DirectoryEntry, ByVal _
  propertyName as string, ByVal maxLen as Integer ) as string
 
  If Not string.IsNullOrEmpty( dirEntry.Properties( propertyName).Value ) Then
    return dirEntry.Properties( propertyName).Value.SubString(maxLen)
  End If
  return string.Empty
end Function
 
 
....
For Each oResult In oResults
                i = i + 1
                sn = ""
                mail = ""
                fax = ""
                loc = ""
                departName = ""
                departNumber = ""
                mobile = ""
                telephoneNumber = ""
                homePhone = ""
                givenName = ""
 
    DIM dirEntry as DirectoryEntry = oResult.GetDirectoryEntry()
 
    sn = GetEntryString( dirEntry, "sn", 64 )
    mail = GetEntryString( dirEntry, "mail", 32 )
 
.............
    If Not sn = "" Then