strsoap = strsoap & vbcrlf & "</account>"
strsoap = strsoap & vbcrlf & "</soap:header>"
strsoap = strsoap & vbcrlf & "<soap:body>"
strsoap = strsoap & vbcrlf & "<getreturn xmlns=testsoap.webservice>"
strsoap = strsoap & vbcrlf & "</getreturn>"
strsoap = strsoap & vbcrlf & "</soap:body>"
strsoap = strsoap & vbcrlf & "</soap:envelope>"
objhttp.open "post", strurl, false
objhttp.setrequestheader "content-type", "text/xml;charset=utf-8"
objhttp.setrequestheader "content-length", len(strsoap)
objhttp.setrequestheader "soapaction", strurl & "getreturn"
objhttp.send strsoap
xmldoc.async = false
xmldoc.loadxml (objhttp.responsetext)