Problemas con comparacion de caracteres

[erbuson]

Hola yera2002 tal como te dice pkj y teniendo en cuenta el tema de la doble conversión por lo de mayúsculas y minúsculas, en el "banco de pruebas" esta funcion que aquí te dejo es 10 veces mas rápida que la que utilizas.


Function Simbolo(ByVal strCadena As String, strCaracter As String) As String
Simbolo = Replace(strCadena, UCase(strCaracter), "=")
Simbolo = Replace(Simbolo, LCase(strCaracter), "=")
End Function


Saludos