OK, it appears that we are just getting the position on the first page.
Can you explain what you need this info for? Perhaps there is a better way to achieve whatever point you have for needing this info. For instance you can audit the page and position of each footnote and surmise that the separator appears a static distance above each top footnote on the page.
Code:
Sub aTest()
Dim aFN As Footnote
For Each aFN In ActiveDocument.Footnotes
Debug.Print aFN.Index, aFN.Range.Information(wdActiveEndPageNumber), aFN.Range.Information(wdVerticalPositionRelativeToPage)
Next aFN
End Sub