prelevare valore tbox con un ciclare

[burrett]

Salve a tutti!
ho una serie di textbox xche si chiamano TBProv1,TBprov2,ecc fino a TBprov10 e dovrei tramite un ciclo assegnare il contenuto di tali textBox ad un array con la seguente sub;

 
Private sub prelevaDati()
Dim Descrizione(6) As String
        Dim campo(6) As TextBox
        Dim i As Integer


        For i = 0 To 5
            campo(i).ID = "TboxProv" & i
            Descrizione(i) = campo(i).Text ' riga di errore
        Next
        For i = 0 To 5
            Response.Write(Descrizione(i))
        Next
end sub

chi mi può aiutare ad far funzionare la sub ,il problema e che non riesco ad dare id ad ai campi?