i = len(cajatexto.text)
for i = 1 to i
caracter = mid(cajatexto.text, i, 1)
/*Aqui haces lo que quieres con el caracter que has recojido dentro de "caracter" */
next i
De esta manera recorres el texto que se encuentra dentro de la caja de texto, evaluando cada uno de sus caracteres...