[AL_BRNS]

السلام عليكم

جرب التالي

كود :

Private Sub Combo1_Click()
Dim x() As String
x = Split(Combo1.Text, " ")
Text1.Text = x(1) & x(2)
Text2.Text = x(0)
Text3.Text = x(4)
End Sub

بالتوفيق.