Strip accents with VBA

Create new module and insert:

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars = "ČŠŽšžYAÁÂAÄAÇEÉEËIÍÎI?NOÓÔOÖUÚUÜÝaáâaäaçeéeëiíîi?noóôoöuúuüýyřčťáěů"
Const RegChars = "CSZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyyrcraeu"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

use as:

=StripAccent(A1)