Dit zou moeten werken:
Schemerige sCn als Koord = result.GetDirectoryEntry (). Eigenschappen („distinguishedname“). Value.ToUpper
Schemerige iLength als Geheel = InStr (InStrRev (sCn, „OU=“), sCn,“, „) - (InStrRev (sCn, „OU=“) + 3)
lblOU.Text = Medio (sCn, InStrRev (sCn, „OU=“) + 3, iLength)