' Replace all accented characters in the input string' Note: this function was written according to Italian rules. Rules for your ' language may vary, for example È may not be converted to "E'" as it is in ' Italian' ' Example:'   Debug.WriteLine(ReplaceAccentedChars("È vero che funziona? Certo che lo è, ' non può non funzionare"))'     ' => E' vero che funziona? Certo che lo e', non puo' non funzionareFunction ReplaceAccentedChars(ByVal input As String) As String    input = input.Replace("À", "A")    input = input.Replace("Á", "A")    input = input.Replace("Â", "A")    input = input.Replace("Ã", "A")    input = input.Replace("Ä", "A")    input = input.Replace("â", "a")    input = input.Replace("ã", "a")    input = input.Replace("ä", "a")    input = input.Replace("à", "a'")    input = input.Replace("á", "a'")    input = input.Replace("È", "E'")    input = input.Replace("É", "E'")    input = input.Replace("Ê", "E")    input = input.Replace("Ë", "E")    input = input.Replace("ê", "e")    input = input.Replace("ë", "e")    input = input.Replace("è", "e'")    input = input.Replace("é", "e'")    input = input.Replace("Ì", "I")    input = input.Replace("Í", "I")    input = input.Replace("Î", "I")    input = input.Replace("Ï", "I")    input = input.Replace("î", "i")    input = input.Replace("ï", "i")    input = input.Replace("ì", "i'")    input = input.Replace("í", "i'")    input = input.Replace("Ò", "O")    input = input.Replace("Ó", "O")    input = input.Replace("Ô", "O")    input = input.Replace("Õ", "O")    input = input.Replace("Ö", "O")    input = input.Replace("ô", "o")    input = input.Replace("õ", "o")    input = input.Replace("ö", "o")    input = input.Replace("ò", "o'")    input = input.Replace("ó", "o'")    input = input.Replace("Ù", "U")    input = input.Replace("Ú", "U")    input = input.Replace("Û", "U")    input = input.Replace("Ü", "U")    input = input.Replace("û", "u")    input = input.Replace("ü", "u")    input = input.Replace("ù", "u'")    input = input.Replace("ú", "u'")    input = input.Replace("Ý", "Y")    input = input.Replace("ý", "y")    input = input.Replace("ñ", "n")    Return inputEnd Function