Ho il segunte codice

codice:
Dim r(21) As Integer
r(0) = "1"
For k = 0 To 19
r(k + 1) = cint(fr.Text(k).Text)******
Next k

nella prima riga definisco un array di tipo integer composto da 21 elementi che, in base a quanto ricordo è:r(0) -->r(20)

imposto poi che il primo elmento sia uguale ad 1
successivamente dovrei imposatare gli elemnti uguali al contenuto nelle caselle di testo
mi dice (alla riga asteriscata) che l'ooggetto non supporta il metodo)...in cosa sbaglio?