Eliminar caracteres especiales

Public Function CharAllowed(ByVal s As String) As String
 ' 2020-02-20 MN Creación
 
 Dim s1 As String, i As Integer, s2 As String
 
 If Len(s) > 0 Then
 s = ChaineSansAccent(s)
 
 s1 = "0123456789abcçdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
 s2 = ""
 For i = 1 To Len(s)
 If InStr(1, s1, CStr(Mid(s, i, 1)), 0) = 0 Then
 Debug.Print "El carácter '" & Mid$(s, i, 1) & "' no está permitido"
 Else
 s2 = s2 + Mid(s, i, 1)
 End If
 Next i
 CharAllowed = s2
 End If
 
End Function

Private Function ChaineSansAccent(ByVal s As String) As String
 ' 2020-02-20 MN
 Dim s1 As String, s2 As String, i As Long
 
 s1 = "àâáãäåéèêëïîìíöôðòóüûùúñçÿÀÁÂÃÄÅÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜ"
 s2 = "aaaaaaeeeeiiiiooooouuuuncyAAAAAAEEEEIIIIOOOOOUUUU"
 For i = 1 To Len(s1)
 s = Replace(s, Mid$(s1, i, 1), Mid$(s2, i, 1))
 Next i
 ChaineSansAccent = s
End Function

UPDATE Table1 SET Champ1 = CharAllowed ([Champ1] )