Code:
Public Function ReplaceAccent(sString As String) As String Dim i As Integer ' Replace A & a For i = 192 To 197 sString = Replace(sString, Chr(i), "A") Next For i = 224 To 229 sString = Replace(sString, Chr(i), "a") Next ' Replace C & c sString = Replace(sString, Chr(199), "C") sString = Replace(sString, Chr(231), "c") ' Replace E & e For i = 200 To 203 sString = Replace(sString, Chr(i), "E") Next For i = 232 To 235 sString = Replace(sString, Chr(i), "e") Next ' Replace I & i For i = 204 To 207 sString = Replace(sString, Chr(i), "I") Next For i = 236 To 239 sString = Replace(sString, Chr(i), "i") Next ' Replace D sString = Replace(sString, Chr(208), "D") ' Replace N & n sString = Replace(sString, Chr(209), "N") sString = Replace(sString, Chr(241), "n") ' Replace O & o For i = 210 To 214 sString = Replace(sString, Chr(i), "O") Next For i = 242 To 246 sString = Replace(sString, Chr(i), "o") Next ' Replace U & u For i = 217 To 220 sString = Replace(sString, Chr(i), "U") Next For i = 249 To 252 sString = Replace(sString, Chr(i), "u") Next ' Replace Y & y sString = Replace(sString, Chr(221), "Y") sString = Replace(sString, Chr(253), "y") sString = Replace(sString, Chr(255), "y") ReplaceAccent = sString End Function