Impossibile, con questo errore non esegue neanche la compilazione......

Poi la riga
codice:
For I = 0 To Form1.TextBox1.Text - 1
non è proprio il massimo come sintassi...