List1.Clear
For i = 1 To Len(Text1.Text)
Dim basamak As String
basamak = Left(Text1.Text, i)
Dim cevir As String
cevir = Right(basamak, 1)
List1.AddItem (i & ".Basamak = " & cevir)
Next i