Split Array Microsoft.XMLHTTP ASP > Asp.NET (vb)

Tenho um código em ASP e to tentando migrar para Asp.NET (vb) mas nao to conseguindo resultado, alguem pode me dizer onde estou errando:

'EM ASP

'Faz a busca no Google
vXMLHttpRequest = CreateObject("Microsoft.XMLHTTP")
vXMLHttpRequest.Open("GET", "http://www.google.com.br/search?hl=pt-BR&num=100&filter=0&q=site%3Ag3formaturas.com.br++" & Request. QueryString("entradaPesquisa"), False)
vXMLHttpRequest.send()
vResultadoTemporario = vXMLHttpRequest.ResponseText
vXMLHttpRequest = Nothing

'Monta o resultado
vResultadoSplitTemporario = Split(vResultadoTemporario, "<div class=g><h2 class=r>", -1, 1)
vResultado = Empty
For vXyz = 1 To UBound(vResultadoSplitTemporario)
vResultado = vResultado & Right("00" & vXyz, 2) & ". " & vResultadoSplitTemporario(vXyz)
vResultadoSplit = Split(vResultado, "<nobr>", -1, 1)
vResultado = vResultadoSplit(0)

vResultado = Replace(vResultado, "</h2><table border=0 cellpadding=0 cellspacing=0><tr><td class=""j"">", "<br/>")
vResultado = Replace(vResultado, "<div class=sml>", Empty)
vResultado = Replace(vResultado, "<div class=std>", Empty)
vResultado = Replace(vResultado, "<br>", "<br/>")

vResultadoSplit = Split(vResultado, """ class=l onmousedown=", -1, 1)
vResultado = vResultadoSplit(0)
vAbc = vResultadoSplit(1)
vResultadoSplit = Split(vAbc, ",'')", -1, 1)
vResultado = vResultado & vResultadoSplit(1)
vResultado = Replace(vResultado, "class=a", "class=""linkResultado""") & "<br/><br/>"
vResultado = Replace(vResultado, "<wbr>", Empty)
Next'EM ASP.NET (vb)

'Buscar o conteudo
Dim vXMLHttpRequest = CreateObject("Microsoft.XMLHTTP")
vXMLHttpRequest.Open("GET", "http://www.google.com.br/search?hl=pt-BR&num=100&filter=0&q=site%3Ag3formaturas.com.br++" & Request.QueryString("Questao"), False)
vXMLHttpRequest.send()
'Resultado da busca
Dim vResultadoTemporario As String = vXMLHttpRequest.ResponseText
vXMLHttpRequest = Nothing

Dim vResultadoSplitTemporario As Array = Split(vResultadoTemporario, "<div class=g><h2 class=r>", -1, 1)
Dim vResultadoSplit As Array
Dim vAbc As String
Dim vResultado As String = ""
For vXyz = 1 To UBound(vResultadoSplitTemporario)
vResultado &= Right("00" & vXyz, 2) & ". " & vResultadoSplitTemporario(vXyz)
vResultadoSplit = Split(vResultado, "<nobr>", -1, 1)
vResultado = vResultadoSplit(0)

vResultado = vResultado.Replace("</h2><table border=0 cellpadding=0 cellspacing=0><tr><td class=""j"">", "<br/>")
vResultado = vResultado.Replace("<div class=sml>", "")
vResultado = vResultado.Replace("<div class=std>", "")
vResultado = vResultado.Replace("<br>", "<br/>")

vResultadoSplit = Split(vResultado, """ class=l onmousedown=", -1, 1)
vResultado = vResultadoSplit(0)
vAbc = vResultadoSplit(1)
vResultadoSplit = Split(vAbc, ",'')", -1, 1)
vResultado = vResultado & vResultadoSplit(1)
vResultado = vResultado.Replace("class=a", "class=""linkResultado""") & "<br/><br/>"
vResultado = vResultado.Replace("<wbr>", "")
Next
vConteudo &= vResultado