vb.net xmlファイルを読み込み

<?xml version="1.0" encoding="utf-8" ?>

<settings>

  <setting key="keyName1" value="value1" />

  <setting key="keyName2" value="value2222222222222222" />

</settings>

/////////////////////////////////////////////////////////////

Public Shared Function GetSettingKeyValue(ByVal keyName As String) As String

        Dim xmlDoc As New System.Xml.XmlDocument

        'XMLファイルを読み込む

        xmlDoc.Load("D:\Test\ADTest\ADTest\Setting.xml")

        Dim xnode As XmlNode = xmlDoc.DocumentElement

        For Each node As XmlNode In xnode.ChildNodes

            If node.Attributes("key").Value = keyName Then

                Return node.Attributes("value").Value

            End If

        Next

        Return String.Empty

    End Function

/////////////////////////////////////////////////////////////

Dim xmlValue As String = GetSettingKeyValue("keyName2")