Bonjour j'ai une fonction qui me permet d'afficher les données que je recois, dans un textbox mais seulement je n'affiche que la premiere données et je ne compren pas pourquoi

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
sub miseEnForme(ByVal data as string)
 
    Dim Tab() as String = Split(data,SEP)
    Dim i as Integer
 
    For each Element in Tab()
         TextBoxEtat.Text = TextBoxEtat.Text + "-->" + Tab(i)
         i = i + 1
    Next
 
End Sub