'Il faut un bouton de commande et deux zones de texte Private Sub Command1_Click() Dim VarString(0 To 100) As String Dim MyString As String MyString = Me.Text1 For i = 0 To Len(MyString) VarString(i) = Mid(MyString, i + 1, 1) Next Me.Text2 = "" For i = 0 To Len(MyString) Me.Text2.Text = Me.Text2 & VarString(i) Next End Sub