Can anybody help?

Is it possible, using a solidworks VBA macro to traverse assembly at all levels and add the item numbers?

For example

1    MAIN ASSEMBLY

1.1  PART1

1.2  PART2

1.3  PART3

Many thanks in advance!

Darren