Problemas al enviar una página web

Necesito enviar una página web por mail, tengo la siguiente función:

Private Function HttpContent(url As String) As String
Dim objRequest As WebRequest = System.Net.HttpWebRequest.Create(url)
Dim sr As New StreamReader(objRequest.GetResponse().GetResponseStream())
Dim result As String = sr.ReadToEnd()
sr.Close()
Return result
End Function

El problema es que esta no me recoge los acentos, simplemente me elimina
cualquier letra con acento.
Alguien me puede indicar como solucionar el problema.

Muchas gracias, Álvaro.