VB DELPHI : Parcours textbox / editText

Bonjour,
Voilà developppant sous Delphi et VB j'ai quelque problème d'adaptation ... Regarder plutot ^^ :

Private Sub Command1_Click()

Dim i As Integer

Lettre = Array("a", "b", "c", "d")

Nb_car = Len(Text1.Text)


For i = 1 To Nb_car

j = Text1.Text(i) // marche sous delphi avec edit1.text(i) mais pas sous VB, comment pourrai-je faire ?


Text2.Text = Lettre(j - 1)
Next


End Sub

En fait je veux faire une boucle qui parcours tous les caractères du TextBox, et les recupérer ou les afficher.
A bientôt