Const AccChars$ = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars$ = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
Function Epure$(x$)
Dim i%
For i = 1 To Len(AccChars)
x = Replace(x, Mid(AccChars, i, 1), Mid(RegChars, i, 1))
Next
Epure = Replace(x, "-", " ")
End Function