Private Sub Command1_Click() Dim s As String Dim i As Long Dim compteur As Long Dim retour As String retour = "" compteur = 0 s = CStr(Text1.Text) For i = Len(s) To 1 Step -1 compteur = compteur + 1 If compteur = 3 Then compteur = 0 retour = " " & Mid(s, i, 1) & retour Else retour = Mid(s, i, 1) & retour End If Next i MsgBox retour End Sub