Based on Ferroao's long list of characters, I am using this function:
Function replaceSpecialCharacters(str)
Dim badCharacters, goodCharacters As Variant
Dim i As Integer
badCharacters = Array("Š", "Ž", "š", "ž", "Ÿ", "À", "Á", "Â", "Ã", "Ä", "Å", "Ç", "È", "É", "Ê", "Ë", "Ì", "Í", "Î", "Ï", "Ð", "Ñ", "Ò", "Ó", "Ô", "Õ", "Ö", "Ù", "Ú", "Û", "Ü", "Ý", "à", "á", "â", "ã", "ä", "å", "ç", "è", "é", "ê", "ë", "ì", "í", "î", "ï", "ð", "ñ", "ò", "ó", "ô", "õ", "ö", "ù", "ú", "û", "ü", "ý", "ÿ")
goodCharacters = Array("S", "Z", "s", "z", "Y", "A", "A", "A", "A", "A", "A", "C", "E", "E", "E", "E", "I", "I", "I", "I", "D", "N", "O", "O", "O", "O", "O", "U", "U", "U", "U", "Y", "a", "a", "a", "a", "a", "a", "c", "e", "e", "e", "e", "I", "I", "I", "I", "d", "n", "o", "o", "o", "o", "o", "u", "u", "u", "u", "y", "y")
For i = 0 To UBound(badCharacters)
str = Replace(str, badCharacters(i), goodCharacters(i))
Next i
replaceSpecialCharacters = str
End Function
Calling the function from anywhere else with
Debug.Print replaceSpecialCharacters("žÃÌý")
Or
BadString = "žÃÌý"
GoodString = replaceSpecialCharacters(BadString)
Sidenote:
The approach is replacing special characters with the most closest match, like ž with z.
PS:
The OP mentioned a special-character ".", which can be included in both arrays as well, so that the "." is e.g.: replaced with " ".