Tive esta dúvida também, achei na web, mas foi difícil.
Function puxaXML()
sVar = "CODIGO=123456"
Set xmlhttp = server.CreateObject("microsoft.XMLHTTP")
xmlhttp.open "POST","URL.asp", False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.Send sVar
puxaXML = xmlhttp.responsexml.xml
End Function