Habe mittlerweile die umständliche Lösung gefunden:
...
strasse = getStringValue(objUser, "officeStreetAddress")
...
Function getStringValue(o, itemName)
On Error Resume Next
o.GetInfoEx Array(itemName), 3
Set Entry = o.GetPropertyItem(itemName, 3)
Values = Entry.Values
getStringValue = Values(0).GetObjectProperty(3)
End Function
-----------
Falls allerdings jemand mir sagen kann, wieso das Schema nicht mehr richtig von "Visual Basic" (ADSI) geladen werden kann, wäre ich auch dankbar.
Grüße
Christian