Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
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