- Mid non è un comando, ma una funzione.
- L'array arr è definita di tipo Variant. Perché?
- Le variabili i, casa e transltr non sono definite.
- La variabile crypto, oltre a non essere definita, non è usata.

Riguardo all'errore, la risposta la puoi trovare esaminando il contenuto di Text1 (meglio sarebbe Text1.Text) e il valore di i al momento dell'errore stesso. In ogni caso non si capisce cosa vorresti fare: l'uso di un array e della funzione Mid insieme è illogico.