Lire des données xml en VB

Imports System.Xml 

Module Module1 

    Sub Main() 
        'Dim xDoc As System.Xml.XmlDocument 
        Dim xDoc As MSXML.DOMDocument 
        xDoc = New MSXML.DOMDocument 
        Dim xPE As MSXML.IXMLDOMParseError 
        If xDoc.Load("C:\Documents and Settings\mdorget\Bureau\vraie_fax.XML") Then 
            ' Le document a été chargé avec succès. 
            ' Maintenant faites quelque chose d'intéressant. 
            DisplayNode(xDoc.ChildNodes, 0) 
        Else 
            ' Impossible de charger le document 
            Dim strErrText As String 
            ' Obtient l'objet ParseError 
            xPE = xDoc.parseError 
            With xPE 
                strErrText = "Your XML Document failed to load " & _ 
               "due the following error." & vbCrLf & _ 
               "Error #: " & .errorCode & ": " & xPE.reason & _ 
               "Line #: " & .line & vbCrLf & _ 
               "Line Position: " & .linepos & vbCrLf & _ 
               "Position In File: " & .filepos & vbCrLf & _ 
               "Source Text: " & .srcText & vbCrLf & _ 
               "Document URL: " & .url 
            End With 

            MsgBox(strErrText, vbExclamation) 
        End If 

        xPE = Nothing 
        Console.ReadLine() 
    End Sub 
     
    Public Sub DisplayNode(ByRef Nodes As MSXML.IXMLDOMNodeList, _ 
     ByVal Indent As Integer) 

        Dim xNode As MSXML.IXMLDOMNode 
        Indent = Indent + 2 

        For Each xNode In Nodes 
            If xNode.nodeType = MSXML.DOMNodeType.NODE_TEXT Then 
                Debug.Print(Space$(Indent) & xNode.parentNode.nodeName & _ 
                 ":" & xNode.nodeValue) 
                Console.WriteLine(xNode.parentNode.nodeName & _ 
                 ":" & xNode.nodeValue) 
            End If 

            If xNode.hasChildNodes Then 
                DisplayNode(xNode.childNodes, Indent) 
            End If 
        Next xNode 
        
    End Sub 
End Module

Dim q = (From [property] In XDocument.Load("XMLFile1.xml").Element("fax").Element("properties").Elements("property")
                Where [property].Attribute("name") = "ANI"
                Select [property].Element("value").Value).SingleOrDefault()