Access - Corregir caracteres raros. Como hago?

'Creo un nuevo mudolo

Function  TildesYEñes(texto) As String

Dim LargoTexto As Long

Dim iX As Long

Dim Ascii As Long

TildesYEñes = ""

LargoTexto = Len(texto)

For iX = 1 To LargoTexto

Ascii = Asc(Mid(texto, iX, 1))

Select Case Ascii

'Tomo los valores de los caracteres que quiero cambiar de una tabla ascci

Case Is = 193

TildesYEñes = TildesYEñes & Chr(97)

Case Is = 170

TildesYEñes = TildesYEñes & Chr(97)

Case Else

TildesYEñes = TildesYEñes & Mid(texto, iX, 1)

End Select

Next iX

End Function

Public Function Convert2ASCII128(OriginalText As String) As String

    'Caracteres internacionales

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

    'Correspondencia

    Const Str2 = "aeiouyaeiouaeiouaeiouyn..AEIOUYAEIOUAEIOUAEIOUN!?cC"

    'Carácter a usar en los demás casos

    Const StrElse = "_"

    Dim i As Integer, NewText As String, c As String * 1

    Dim Pos As Integer

    For i = 1 To Len(OriginalText)  'Recorremos el texto recibido

        c = Mid(OriginalText, i, 1) 'carácter a carácter

        Pos = InStr(1, Str1, c)     'Miramos si el carácter está en la primera cadena

        If Pos > 0 Then             'Si es así

            NewText = NewText & Mid(Str2, Pos, 1)   'Añadimos el correspondiente

        ElseIf Asc(c) > 128 Then    'Si no es así, pero el código ANSI es mayor que 128

            NewText = NewText & StrElse         'Añadimos el caracter genérico

        Else

            NewText = NewText & c   'Si es un caracter "normal" lo añadimos tal cual

        End If

    Next

    Convert2ASCII128 = NewText      'Devolvemos la nueva cadena

End Function