Ceci devrait fonctionner :
Faible sCn comme corde = result.GetDirectoryEntry (). Propriétés (« distinguishedname »). Value.ToUpper
Faible iLength comme nombre entier = InStr (InStrRev (sCn, « OU="), sCn, », ") - (InStrRev (sCn, « OU=") + 3)
lblOU.Text = mi (sCn, InStrRev (sCn, « OU=") + 3, iLength)