[COLOR="Navy"]Public Sub[/COLOR] SoapExample()
[COLOR="navy"]Dim[/COLOR] objXML [COLOR="navy"]As Object[/COLOR], objList [COLOR="navy"]As Object[/COLOR], objItem [COLOR="navy"]As Object
Dim[/COLOR] vID [COLOR="navy"]As Variant[/COLOR], vTitle [COLOR="navy"]As Variant[/COLOR], vDefaultViewUrl [COLOR="navy"]As Variant
Set[/COLOR] objXML = CreateObject("Microsoft.XMLHTTP")
objXML.Open "POST", "http://MySharePointSite.com/sites/mysite/_vti_bin/Lists.asmx", [COLOR="navy"]False[/COLOR]
objXML.setRequestHeader "Content-type", "text/xml"
objXML.send "<?xml version=""1.0"" encoding=""utf-8""?>" _
& "<soap:Envelope " _
& "xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" " _
& "xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" " _
& "xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" _
& "<soap:Body>" _
& "<GetListCollection " _
& "xmlns=""http://schemas.microsoft.com/sharepoint/soap/"" />" _
& "</soap:Body>" _
& "</soap:Envelope>"
[COLOR="navy"]Set[/COLOR] objList = objXML.responseXML.SelectNodes("//List")
[COLOR="navy"]For Each[/COLOR] objItem [COLOR="navy"]In[/COLOR] objList
vID = objItem.GetAttribute("ID")
vTitle = objItem.GetAttribute("Title")
vDefaultViewUrl = objItem.GetAttribute("DefaultViewUrl")
[COLOR="navy"]Debug[/COLOR].[COLOR="navy"]Print[/COLOR] vID, vTitle, vDefaultViewUrl
[COLOR="navy"]Next[/COLOR] objItem
[COLOR="navy"]Set[/COLOR] objXML = [COLOR="navy"]Nothing
End Sub[/COLOR]