Sub FillListboxWithTitles()

Dim IndividualTitle As XmlNode

Dim TheCollectionOfTitles As XmlNodeList

TheCollectionOfTitles = doc.GetElementsByTagName("title")

For Each IndividualTitle In TheCollectionOfTitles

lstTitles.Items.Add(IndividualTitle.InnerText)

Next IndividualTitle

lstTitles.SelectedIndex = 0

Call lstTitles_Click(Me, e)

txtSearch.Text = ""

txtSearch.Select()

End Sub