PD:
comprueven la velocidad (Mi Basura de Codigo) le gana a MrFrog
Me da que estás equivocado.

Seguramente, no has compilado el proyecto, en el IDE no nos mostrará lo mismo.

También debes compilarlo quitando la comprobación de límites de arrays.
Cadena larga : 10000 dígitos
Cadena corta : 35 dígitos
Testeado compilado usando la clase CTiming.cls.
Resultado:

DoEvents!
