Cómo utilizar la interfaz de datos bursátiles de Sina en VB.NET

Hice este proyecto en vb6.0, pero también encontré este problema en vb.net. Veamos si podemos compartirlo. Parte del código en vb6.0 es el siguiente:

Dim HttpReq As Object

Dim request As String

HttpReq = CreateObject("MSXML2.XMLHTTP. 3.0")

HttpReq.open("GET", uri, False)

HttpReq.send()

'Analizar valor de retorno

solicitud = HttpReq.responseBody

solicitud = Split(Split(StrConv(solicitud, vbUnicode y H804), "=")(1), "")(0)