¿Cómo obtener texto de una página web desde el control WebBrowser de VB?

¿Función?HtmlStr$(Url$)?Extraer código fuente de la página web función Dim?XmlHttp Set?XmlHttp?=?CreateObject("Microsoft.XMLHTTP") XmlHttp.Open?"GET",?Url,?False XmlHttp.send If? XmlHttp .ReadyState?=?4?Then?HtmlStr?=?StrConv(XmlHttp.ResponseBody,?vbUnicode) Set?XmlHttp?=?Nada

Fin?Función

Privado?Sub ? Form_Load()

Texto1?=?" Texto1?=?Text1 = HtmlStr("/")

Fin?