Это должно работать:
Тусклое sCn как шнур = result.GetDirectoryEntry (). Свойства («distinguishedname»). Value.ToUpper
Тусклое iLength как интежер = InStr (InStrRev (sCn, «OU="), sCn,», ") - (InStrRev (sCn, «OU=") + 3)
lblOU.Text = средний (sCn, InStrRev (sCn, «OU=") + 3, iLength)