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