[حريف برمجة]

كود :

Dim arr() As String
arr = Split(Text1.Text, " ")

Text2.Text = arr(0)
Text3.Text = arr(1)
Text4.Text = arr(2)