Funció eliminar / treure accents d'una cadena de text per mitjà de codi VBA d'Access

Public Function fncQuitarAcentos(ByVal strNombre As String) As String

    Const conAcentos = "áàäâÁÀÄÂéèëêÉÈËÊíìïîÍÌÏÎóòöôÓÒÖÔúùüûÚÙÜÛýÿÝ"

    Const sinAcentos = "aaaaAAAAeeeeEEEEiiiiIIIIooooOOOOuuuuUUUUyyY"

    Dim i As Integer

    For i = 1 To Len(conAcentos)

      strNombre = Replace(strNombre, Mid(conAcentos, i, 1), Mid(sinAcentos, i, 1), 1, -1, vbBinaryCompare)

    Next

    fncQuitarAcentos = strNombre

End Function