as a addenda
RSAllCategories.GetValue(0).Value is equivalent to RSAllCategories(0)

Regards
Jorge