[أبو ناصر]

الكود التالي بالفيجوال بيسيك 10 يعرض لك الاسم الأول و الاسم الأخير و يعرضهما في ميساج قد يفيدك 

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim myarray() As String = Split(TextBox1.Text, " ")
       MsgBox(myarray(0))
       MsgBox(myarray(myarray.Length - 1))
   End Sub