Bonjour,
voici un exemple de découpage avec Split :
Private Sub splitString()
Dim sText As String
Dim sLines() As String
'*** Récupère le texte entré.
sText = txbEntree.Text
'*** Retourne un tableau qui contient les sous-chaînes du texte entré,
' délimité par le caractère spécifié. Ici : l'espace.
sLines = sText.Split(CChar(" "))
'*** chaque sous-chaîne est récupérée par les 4 TextBox.
TextBox1.Text = sLines(0)
TextBox2.Text = sLines(1)
TextBox3.Text = sLines(2)
TextBox4.Text = sLines(3)
End Sub
Reste à activer la proc ci dessus comme ci dessous par exemple :
Private Sub txbEntree_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txbEntree.Validating
splitString()
End Sub