schwastek

Option Explicit

Public Sub Main()

    Dim htmlDocument As htmlDocument
    Dim tableWithStories As HTMLTable
    Dim rowsWithStories As IHTMLElementCollection
    Dim storylinkAnchors As Collection
    Dim output As Variant