' Listing 7: The getReverseOU Function

Private Function getReverseOU(strDN)
  Dim strOUNames, arrItem, i, strTemp, strResult
  strOUNames = Mid(strDN, InStr(strDN, "=") + 1)
  strOUNames = Mid(strOUNames, InStr(strOUNames, "=") - 2)
  strOUNames = Left(strOUNames, InStr(UCase(strOUNames), "DC=") - 2)
  arrItem = Split(strOUNames, ",")
  For i = UBound(arrItem) To LBound(arrItem) Step - 1
    strTemp = Right(arrItem(i), Len(arrItem(i)) - InStr(arrItem(i), "="))
    strResult = strResult & strTemp & "\"
  Next
  getReverseOU = Left(strResult, Len(strResult) - 1)
End Function