[Resolvido] Calculando Frete PAC, SEDEX Etc

Boa tarde;

Alguem já configurou esse script de retorno de calculo de frete para trazer a quantidade de dias?

Segue abaixo:

dim url_correios,objXMLHTTP,ValorBox,Valor,ValorF,frete_total
url_correios = "http://ws.correios.com.br/calculador/CalcPrecoPrazo.asmx/CalcPrecoPrazo?nCdEmpresa=&sDsSenha=&nCdServico=41106&sCepOrigem=29056220&sCepDestino=29730000&nVlPeso=0.50&nCdFormato=1&nVlComprimento=0.40&nVlAltura=0.05&nVlLargura=0.20&nVlDiametro=0.65&sCdMaoPropria=N&nVlValorDeclarado=3.50&sCdAvisoRecebimento=N"

Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.open "GET", url_correios,false
objXMLHTTP.send ""
ValorBox = objXMLHTTP.responseText
set objXMLHTTP = nothing
set objXMLHTTP = nothing
Valor = InStr(ValorBox,"Valor")
ValorF = MID(ValorBox,Valor+6,6)
ValorF = Replace(ValorF,"<","")
ValorF = Replace(ValorF,",",".")
frete_total = ValorF

response.Write(frete_total)

Este codigo retorna o valor do frete, gostaria de saber se alguem ja fez alguma modificacao nele pra trazer o prazo de entrega tambem.

Att;