caranbis respondió:
Public Function CONTARLETRA(Texto, Letra) largo = Len(Texto) Texto = UCase(Texto) Letra = UCase(Letra) For i = 1 To largo letraevaluada = Mid(Texto, i, 1) If letraevaluada = Letra Then cont = cont + 1 Next i CONTARLETRA = cont End Function Este es...