private Function GetEntryString( ByVal dirEntry as DirectoryEntry, ByVal _
  propertyName as string) as string
 
  If Not string.IsNullOrEmpty( dirEntry.Properties( propertyName).Value ) Then
    return dirEntry.Properties( propertyName).Value
  End If
  return string.Empty
end Function
 
 
....
 
 
    DIM dirEntry as DirectoryEntry = oResult.GetDirectoryEntry()
 
    sn = Left(GetEntryString( dirEntry, "sn"),64)
    mail = Left(GetEntryString( dirEntry, "mail"),32)
 
.............
    If Not sn = "" Then