Paragraph.ListNumberOriginal (Word)

Returns an Integer that represents the original list level for a paragraph.

ListNumberOriginal (Level)

Level: Specifies the list level.

Dim iLevel As Integer: iLevel =  
Dim lngListNumberOriginal As Long
lngListNumberOriginal = ActiveDocument.Lists(1).ListParagraphs(1).ListNumberOriginal(Level:=iLevel)