Dim oResults As DirectoryServices.SearchResultCollection = objSearch.FindAll

        For Each oResult In oResults
            retList.Add(oResult.GetDirectoryEntry.Properties("cn").Value & "   <->   " & oResult.GetDirectoryEntry.Properties("mail").Value)
        Next



DirectoryServices.SearchResultCollection oResults = objSearch.FindAll();

foreach (object oResult_loopVariable in oResults) {
	oResult = oResult_loopVariable;
	retList.Add(oResult.GetDirectoryEntry.Properties("cn").Value + "   <->   " + oResult.GetDirectoryEntry.Properties("mail").Value);
}