fonction comme mid$

Salut,
utilises plutôt Right()
Function  Extraire(xChaine As String, nCar As Integer) As String
  Extraire=Right$(xChaine,nCar)
EndSub 

Ensuite, 

Text4.Text=Extraire(machaine,4)
machaine=Mid$(machaine,1,Len(machaine)-4)
Text3.Text=Extraire(machaine,4)
machaine=Mid$(machaine,1,Len(machaine)-4)
Text2.Text=Extraire(machaine,4)

En testant bien sûr sur la longueur de machaine.

Pour la fonction, j' ai pensé à la récurssivité,mais j' avoue n' avoir pas pu la mettre en place.		

				
... Y'en a même qui disent qu'ils m'ont vu voler.

				

				
				/PRE>

Salut,

Voici une autre solution aussi avec 4 TextBox non indéxés :

Private Sub Command1_Click()

Dim sString As String
Dim sStringLen As Integer
Dim sStringReturn As String
Dim sStringStart As Integer
Dim iBoucle As Integer

sString = "1111222233334444"
sStringLen = Len(sString)
sStringStart = 1

For iBoucle = 1 To 4
    sStringReturn = Mid$(sString, sStringStart, 4)
    Me.Controls("text" & iBoucle).Text = sStringReturn
    sStringStart = sStringStart + 4
Next iBoucle

End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin