Buongiorno a tutti,

Innanzi tutto grazie per l attenzione che mi darete,

Avrei questo problema.

Devo sostituire tutte le lettere ACCENTATE(minuscole e maiuscole) all'interno di una stringa.
Per questo ho pensato di fare un REPLACE, cercando all'interno della stringa i vari codici ASCII.

Il PROBLEMA E' CHE NON MI TROVA UN TUBO E NON SO COME FARE A SOSTITUIRE QUESTI CARATTERI ASCII.

Il codice che uso è questo:


codice:
Sub char_spec()
    Dim pos_spec As Integer
    pos_spec = 0
    
    
    pos_spec = InStr(1, Desc, Chr$(138))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(138), "e")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(144))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(144), "E")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(149))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(149), "o")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(151))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(151), "u")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(160))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(160), "a")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(162))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(162), "o")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(163))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(163), "u")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(181))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(181), "A")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(183))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(183), "A")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(212))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(212), "E")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(214))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(214), "I")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(222))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(222), "I")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(224))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(224), "O")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(227))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(227), "O")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(235))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(235), "U")
            pos_spec = 0
        End If
    pos_spec = InStr(1, Desc, Chr$(233))
        If pos_spec <> 0 Then
            Desc = Replace(Desc, Chr(233), "U")
            pos_spec = 0
        End If
End Sub

Mettiamo che la variabile DESC CONTENGA:

"AMAZONE GUARANÀ pacc. da 10 "

vorrei sostituire la A(accentata) con A


che cosa ho sbagliato????