Ciao a tutti
ho il seguente problema

Ho necessità di importare del testo da un'altro sito web ma quando lo inserisco nel label mi restituisce dei quadratini che vanno a sostituire le lettere accentate e così via.
Vi posto il codice di esempio che sto sviluppando


Dim objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

objXMLHTTP.Open("GET", "http://www.oroscopi.com/oroscopo/oroscopo_giorno.php?segno=Cancro", False)

objXMLHTTP.Send()
Dim x
Dim y
Dim str As String = CStr(objXMLHTTP.ResponseText)

x = InStr(1, str, UCase("<div class=""oroscopo"">"), 1)
y = InStr(1, str, UCase("<div class=""footer"">"), 1)

Dim s

s = y - x
Dim StringaTroncata = Mid(str, x, s)

Label1.Text = StringaTroncata


ECCO IL TESTO CHE MI RESTITUISCE:
In questo Luned�ovrete essere maggiormente pragmatici. E' ci�e vi consiglia la Luna e una Venere in Ariete che vi rende un po' pi�i per le cose che dovrete realizzare. Evitate le spese eccessive e proiettatevi sul presente e su quello che c'�ealmente da fare!