اول یک تابع برای خوندن دیتا xml مینویسیم،
در این تابع url میتونه آدرس یک فایل local یا یک آدرس اینترنتی باشه:

Public Type Response

    xml As MSXML2.DOMDocument60

    ERROR_MESSAGE As String

End Type



Public Function Read_xml(File_Url As String) As Response

On Error GoTo Error_Handler

Dim REQ As New MSXML2.XMLHTTP60

REQ.Open "GET", File_Url, False

REQ.Send

If REQ.status = 200 Then   ' STATUS CODE 200 = OK

    Set Read_xml.xml = REQ.responseXML

Else

    Set Read_xml.xml = Nothing

    Read_xml.ERROR_MESSAGE = " XMLHttpRequest Error = " & REQ.status & vbCrLf & REQ.statusText

End If

Set REQ = Nothing

Exit Function

Error_Handler:

Set Read_xml.xml = Nothing

Read_xml.ERROR_MESSAGE = "Access Error=" & Err.Number & vbCrLf & Err.description

Set REQ = Nothing

End Function