Função Excel Para Limpar Caracteres Especiais do Texto

Function SemAcentos(strTexto As String)
   
    'Declaração de Variáveis
    Dim strComAcentos As String
    Dim strSemAcentos As String
    Dim VarPosicao As Integer
    Dim i As Integer
   
    strComAcentos = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü"
    strSemAcentos = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
   
    'Loop
    For i = 1 To Len(strTexto)
       
        VarPosicao = InStr(strComAcentos, Mid(strTexto, i, 1))
       
        If VarPosicao > 0 Then
           
            strTexto = Replace(strTexto, Mid(strComAcentos, VarPosicao, 1), Mid(strSemAcentos, VarPosicao, 1))
       
        End If
   
    Next

SemAcentos = strTexto

End Function