DIM hSubCollection AS .SubCollection DIM anObject AS Object anObject = hSubCollection [ Key AS String ]