Public Function XMLparse(stpath As String) As Boolean
Dim xmldoc As Object, x
Set xmldoc = CreateObject("")
xmldoc.async = "false"
xmldoc.Load (stpath)
For Each x In xmldoc.documentElement.childNodes
Debug.Print x.nodename
Debug.Print ": "
Debug.Print x.Text
Next
Set xmldoc = Nothing
End Function