How to enumerate all unique fonts in a PDF document?

This has been answered before (2010) but apparently the API has changed so much since then I can't seem to make it work in VB. I have been attempting to make the sdfdoc approach work, which since listed as #1, this must be the fastest and most efficient way to build a single list of fonts from the entire document?

Hi I updated that post to provide more obvious parsing code.