TextBox1.Text = ""

        Casuali(3) = TextBox2.Text  'Cambio il valore

        Dim i As Integer                   'Effetuo l'aggiornamento della textbox ma continua a darmi numeri strani
        For i = 0 To UBound(Casuali)

            TextBox1.Text = TextBox1.Text & Casuali(i).ToString & vbTab