Using Multilevel Lists in VBA

I am trying to write a procedure that will take a multilevel list and make it into a table. I can create a table with the correct dimensions, but what I am struggling with is then filling out the table. Here is my numbering scheme:

1. Level 1 Item 1

1.1. Level 2 Item 1
1.2. Level 2 Item 2
1.3. Level 2 Item 3

2. Level 1 Item 2

2.1. Level 2 Item 1

and my goal is a table that looks like:

Coulumn1 | Column 2
1. Level 1 Item 1 | 1.1. Level 2 Item 1
1. Level 1 Item 1 | 1.2. Level 2 Item 2
1. Level 1 Item 1 | 1.3. Level 2 Item 3
2. Level 1 Item 2 | 2.1. Level 2 Item 1

Essentially I am trying to turn a one dimensional array into a two dimensional array, but I can't figure out how to get the Level 1 items to line up with the correct level 2 items. I have been searching through the activedocument.Lists collection searching for something that would give me a way to matche up the level 1 items with the level 2 items. Any help would be appreciated.