Ciò dovrebbe funzionare:
sCn fioco come stringa = result.GetDirectoryEntry (). Proprietà (“distinguishedname„). Value.ToUpper
iLength fioco come il numero intero = InStr (InStrRev (sCn, “OU="), sCn,„, ") - (InStrRev (sCn, “OU=") + 3)
lblOU.Text = metà di (sCn, InStrRev (sCn, “OU=") + 3, iLength)