...
 
objrootDSE = GetObject("LDAP://rootDSE")
objcontainer = GetObject("LDAP://" & strContainer & "," & objrootDSE.Get( _
  "defaultNamingContext"))
 
...
 
For Each obj In objcontainer
 
  Try
    test = obj.FirstName 'Es handelt sich um einen User
  Finally
    MsgBox("nix") 'Wird ausgegeben, nach End Try gehts aber nicht weiter
  End Try
 
  'if obj.FirstName = nothing ist ebenfalls mit einem Ausstieg verbunden
 
Next