读取XML文件的节点内的内容

<?xml version="1.0" encoding="utf-8" ?>
<data>
  <tag3>15</tag3>
  <tag6>14</tag6>
</data>

Private Function GetXML(ByVal name As String) As String
        Dim path As String
        Dim xx As String = ""
        path = Application.StartupPath + "\xbd.xml" '文件的地址,相对位置
        Try
            Dim reader As New Xml.XmlTextReader(path)
            reader.ReadToFollowing(name) '读取到文件指定的节点处,如tag3
            xx = reader.ReadString       '读取里面的值
            reader.Close()
        Catch ex As Exception
            xx = -1
        End Try
        Return xx
    End Function