Remover Acentos

Function convertirSinAcentos(ByVal palabra As String) As String
Dim output As String = palabra
output = output.Replace("á", "a")
output = output.Replace("é", "e")
output = output.Replace("í", "i")
output = output.Replace("ó", "o")
output = output.Replace("ú", "u")
output = output.Replace("ñ", "n")
output = output.Replace("Á", "A")
output = output.Replace("É", "E")
output = output.Replace("Í", "I")
output = output.Replace("Ó", "O")
output = output.Replace("Ú", "U")
output = output.Replace("Ñ", "N")
Return output
End Function