¿Cómo convertir los caracteres chinos confusos del código fuente extraído por VB al chino original?

Opción?Explícito

Privado?Sub?Command1_Click()

Texto2.Text?=?GetPage(Text1.Text)

¿Fin?Sub

Función?GetPage(url)

¿Activado?Error?Reanudar?Siguiente

¿Atenuar?Recuperación

Establecer ?Retrieval?=?CreateObject("Msxml2.XMLHTTP")

Con?Retrieval

.Open?"Get",?url,?False,?"",?" "

.send

If.readyState?=?4?Then

If.Len(.responseBody)?=?0?Then

Debug.Print?"lt;h1gt; Fallo del servidor~!~~~~lt;/h1gt;"

Else

GetPage?=?BytesToBstr(.responseBody)

¿Fin?Si

Fin?Si

Fin?Con

Establecer?Recuperación = Nada

¿Activado?

Finalizar función

Función?BytesToBstr(body)

Dim?objstream

Set?objstream?=?CreateObject("adodb . stream")

Con?objstream

.Type?=?1

.Mode?=?3

.Open

.Write?UTF-8"?Si aparecen caracteres confusos, abra manualmente el código fuente de la página, verifique qué codificación es e intente cambiarlo a GB2312

BytesToBstr? =?objstream .ReadText

.Close

Fin?Con

Set?objstream?=?Nada

.Charset?=? UTF-8 "?Nada

¿Fin?