I would start by changing you select node calls.
Dim nodeid As XmlNode = node.SelectSingleNode("id")
Dim nodesubject As XmlNode = node.SelectSingleNode("subject")
Dim nodeyear As XmlNode = node.SelectSingleNode("year")nodeid.InnerText = id nodesubject.InnerText = subject nodeyear.InnerText = year
