[AL_BRNS]

السلام عليكم

جرب التالي

PHP كود :

Private Sub Command1_Click()
Dim x() As String
x = Split(Text1.Text, " ")
Text2.Text = x(0)
End Sub 


بالتوفيق .