Pourquoi vb ne conserve la valeur des tableau

Bonjour,

j'ai essayée de réaliser un tableau avec vb en utilisant une boucle for qui se trouve à l'interieur d'un timer

c a d

Private Sub Timer1_Timer()
Dim tableau(10) As Integer
Dim i, a As Integer
Dim b As String

a = Str(Text3.Text)

For i = 0 To 10

If i = a Then
tableau(i) = Str(Text2.Text)
Text1.Text = tableau(i)

Else
End If

Next i

If Text3.Text = 10 Then
Timer1.Enabled = False
For i = 0 To 10
b = MsgBox(tableau(4), 4 + 32, "d")
Next i
End If
Text3.Text = Text3.Text + 1

End Sub

le principe de ce code,c'est qu'à chaque pas que fait le "TIMER1", la boucle "for" va de 0 jusqu'a 10, j'ai mis une condition qui consiste à enregistrer la valeur qui se trouve dans la zone de texte à chaque fois que l'ndice "i" de la boucle égalera celui de timer { If i = a Then }; mais à la fin du programme je constate que toutes les valeurs du tableau sont remis a 0 , et ce que quelqu'un peut me dire pour quoi?

merci pour votre aide