Public Function wwwXML(ByVal url As String) As MSXML.DOMDocument
Dim xml As New MSXML.XMLHTTPRequest
Dim xmlDoc As New MSXML.DOMDocument
On Error GoTo errorHandler:
xml.Open "GET", url, False
xml.send
Set xmlDoc = xml.responseXML
Set wwwXML = xmlDoc
Exit Function
errorHandler:
Err.Raise Err.number, "News.wwwXML", Err.Description
End Function
Bez Muje nema struje