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")