<?xml version="1.0" encoding="utf-8"?>
<root>
	<dict alias="country_dict" name="Государство">
		<item>
			<code>
				ABH
			</code>
			<value>
				АБХАЗИЯ
			</value>
		</item>
		<item>
			<code>
				AFG
			</code>
			<value>
				АФГАНИСТАН
			</value>
		</item>
    </dict>
</root>

 Dim wr As New System.IO.StreamWriter("C:\wr.txt", False)
        Using reader As XmlReader = XmlReader.Create("C:\country_dict.xml")
            While reader.Read()  
                If reader.IsStartElement("item") Then                    
                Dim attribute_name As String = reader.Item("code") ' тут получаю nothing
                    Dim attribute_id As String = reader.Item("value") ' тут получаю nothing
                    If attribute_name IsNot Nothing Then 
                        MsgBox(attribute_name + ";" + attribute_id)                      
                    End If  
                End If
            End While
        End Using
подскажите что не так делаю?
        wr.Close()