Microsoft.XMLHTTP retorna erro em acento.

Tenho um formulário que busca CEP em uma outra página, como posso fazer para corrigir os acentos retornados, exemplo 72255604?

Protected Sub bBuscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bBuscar.Click
If tbCEP.Text <> "" Then
'Buscar o conteudo
Dim vCEP As Integer = tbCEP.Text
Dim vXMLHttpRequest = CreateObject("Microsoft.XMLHTTP")
vXMLHttpRequest.Open("GET", "http://republicavirtual.com.br/web_cep.php?cep=" & vCEP & "&formato=query_string", False)
vXMLHttpRequest.send()
'Resultado da busca
Dim vResultadoTemporario As String = vXMLHttpRequest.ResponseText
vXMLHttpRequest = Nothing

'Busca o conteudo via Xml Http Request
Dim vXMLHttpRequestResultado As Array = vResultadoTemporario.Split("&")
Dim vSplit(7, 1) As String
Dim vTemporario As Array
'Montando parametros
For vXyz = 1 To UBound(vXMLHttpRequestResultado)
vTemporario = vXMLHttpRequestResultado(vXyz).Split("=")
vSplit(vXyz, 0) = vTemporario(0)
vSplit(vXyz, 1) = vTemporario(1).ToString.Replace("+", " ")
Next
'Montando resposta

 Select Case vSplit(1, 1)
 'Caso o resultado seja completo
 Case "1"
 vResultado &= " <h2>Cidade com logradouro completo</h2> " & vbCrLf & _
 " <b>Tipo de Logradouro: </b> " & vSplit(6, 1) & "<br/>" & vbCrLf & _
 " <b>Logradouro: </b> " & vSplit(7, 1) & "<br/>" & vbCrLf & _
 " <b>Bairro: </b> " & vSplit(5, 1) & "<br/>" & vbCrLf & _
 " <b>Cidade: </b> " & vSplit(4, 1) & "<br/>" & vbCrLf & _
 " <b>UF: </b> " & vSplit(3, 1) & "<br/>" & vbCrLf & _
 " <b>Cep: </b> " & vCEP & vbCrLf
 'Caso o resultado unico
 Case "2"
 vResultado &= " <h2>Cidade com logradouro ú</h2> " & vbCrLf & _
 " <b>Cidade: </b> " & vSplit(4, 1) & "<br/>" & vbCrLf & _
 " <b>UF: </b> " & vSplit(3, 1) & "<br/>" & vbCrLf & _
 " <b>Cep: </b> " & vCEP & vbCrLf
 'Caso nao seja encontrado
 Case Else
 vResultado &= " <h2>Resultado não encontrado</h2> " & vbCrLf & _
 " <b>Cep: </b> " & vCEP & vbCrLf
 End Select
 End If
	End Sub