You can try this line which seems to work for me when the selection is on the page you are interested in (not in the footnote area)
Code:
Debug.Print Selection.Range.Bookmarks("\Page").Range.Footnotes.Separator.Information(wdVerticalPositionRelativeToPage)