Lire en VB6 un fichier XML

Bonjour,
J'y comprends plus rien.
J'ai bien tout lu sur les forums sans réussir a comprendre.
Pouvez vous me dire ou je me trompe ?

J'ai le fichier XML suivant : (Faites un copier/coller dans le navigateur pour mieux voir)

<GARAGE_PARAMETERS><RESORT_INFO ResortName="Garage Gaudin" DoorCode="123" InfoLine01="12 Rue de la gare" InfoLine02="92000 NEUILLY" InfoLine03="" InfoLine04="TEL: 00.00.00.00.00 FAX: 00.00.00.00.00" InfoLine05="RCS: 000000000000 00 00 " InfoLine06="" InfoLine07="" InfoLine08="" InfoLine09="" InfoLine10="" ParkingCode=""/><KIOSK_PLANNING><MONDAY></MONDAY><TUESDAY></TUESDAY><WEDNESDAY></WEDNESDAY><THURSDAY></THURSDAY><FRIDAY></FRIDAY><SATURDAY></SATURDAY><SUNDAY></SUNDAY></KIOSK_PLANNING></HOTEL_PARAMETERS>


J'ai le code ci-dessous : (Mixe de moi-même et surtout des forums. :))

Private Sub Form_Load()
Dim xmlDoc As DOMDocument
Dim objNodeList As IXMLDOMNodeList
Dim objProductNode As IXMLDOMNode
Dim objQuantityNode As IXMLDOMNode
Dim objNode As IXMLDOMNode
Dim XMLurl As String
Dim strRet As String

Fic = "C:/Parameters.xml"
Chemin = "GARAGE_PARAMETERS/RESORT_INFO"
Champs = "InfoLine04"

Set xmlDoc = New DOMDocument
XMLurl = Fic

xmlDoc.async = False

If xmlDoc.Load(XMLurl) = False Then
MsgBox ("XML LOAD ERROR")
Else
Set objNodeList = xmlDoc.selectNodes(Chemin)
For Each objNode In objNodeList
Set objProductNode = objNode.selectSingleNode(Champs)

strRet = "ProductID = " & objProductNode.Text

MsgBox strRet
Next objNode
End If
End Sub


Je pense faire une erreur quelques part, mais ou ?

Si vous savez, merci de me donner la solution, mais aussi l'explication.

Merci a tous.