Here is my code Sub loadrss() Dim http As Object, html As New HTMLDocument, topics As Object, titleElem As Object, …