Reemplazar caracteres de una cadena

Cuando tenemos un texto con caracteres raro que nuestro programa no identifica envía los códigos en HTML, para poder reemplazarlos utilizo la siguiente función:

Public Function cambiar_caracteres(cambiarcadena As String) As String
        cambiarcadena = cambiarcadena.Replace("Á", "A")
        cambiarcadena = cambiarcadena.Replace("á", "a")
        cambiarcadena = cambiarcadena.Replace("É", "e")
        cambiarcadena = cambiarcadena.Replace("é", "e")
        cambiarcadena = cambiarcadena.Replace("Í", "I")
        cambiarcadena = cambiarcadena.Replace("í", "i")
        cambiarcadena = cambiarcadena.Replace("Ó", "O")
        cambiarcadena = cambiarcadena.Replace("ó", "o")
        cambiarcadena = cambiarcadena.Replace("Ú", "U")
        cambiarcadena = cambiarcadena.Replace("ú", "u")
        cambiarcadena = cambiarcadena.Replace("Ñ", "N")
        cambiarcadena = cambiarcadena.Replace("ñ", "n")
        Return cambiarcadena
 End Function

La función la puedes utilizar:
Dim campo as string = "La caña esta sobre el camión"
Dim Resultado as string = cambiar_caracteres(campo)

Resultado = "La cana esta sobre el camion"