Con le seguenti due linee di codice:
codice:
For i = 0 To casa
   arr(i) = Mid(Text1, i, 3)
anche partendo da 1 anziché da 0, prenderai sì tre caratteri alla volta, ma al primo giro essi saranno il 1°, 2° e 3°; al secondo giro saranno il 2°, 3° e 4°; al terzo giro saranno il 3°, 4° e 5°... e cosi via. Non credo che questo sia il risultato che vuoi ottenere. D'altra parte, se non dici cosa vuoi fare, è impossibile indicarti come fare.