MS Word VBA To Get Paragraphs Within Cell

Using a VBA Macro in my Word document, I need to get multiple paragraphs within a table cell and convert them into separate XML objects, each with positioning tags.

For instance, consider the following two cells, of which I will only deal with Cell 1, and consider the two paragraphs within cell 1:

.          Cell 1         .         Cell 2        .
.----------------------.---------------------.
|    Paragraph 1    |                          |
|                            |                          |
| Paragraph 2 will |                          |
| wrap within the  |                          |
| same cell.           |                          |
`---------------------`--------------------`

I need to convert cell 1 to something like the following:

<Rectangle>
    <ReportItems>
        <TextBox>
            <Top>0in</Top>
            <Height>.5in</Height>
            <Value>Paragraph 1</Value>
        </TextBox>
        <TextBox>
            <Top>.5in</Top>
            <Height>1.5in</Height>
            <Value>Paragraph 2 will wrap within the same cell</Value>
        </TextBox>
    </ReportItems>
</Rectangle>

Word indeed exposes 2 separate paragraph objects within that cell object. However, I have scratched around and cannot find the properties of each paragraph object that tell me the relative positioning within that cell.

How do I get the positioning of each paragraph object within its cell object?

Any help is appreciated. Thank you.

Below is some of my code which gets me partially there and may help explain what I am seeking.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

    For Each myRow In myTable.Rows
        For Each myCell In myRow.Cells
            For Each myParagraph In myCell.Range.Paragraphs
                myTopMargin = myParagraph.TopMarginWithinThisCell    ' Does not exist as is, but is what I need
                myHeight = myParagraph.Height                        ' Does not exist as is, but is what I need
                myText = myParagraph.Range.Text                      ' This exists
                Print #1, "<TextBox>"
                Print #1, "    <Top>" & PointsToInches(myTopMargin) & "</Top>"
                Print #1, "    <Height>" & PointsToInches(myHeight) & "</Height>"
                Print #1, "    <Value>" & myText & "</Value>"
                Print #1, "</TextBox>"
            Next myParagraph
        Next myCell
    Next myRow