[asto]

هذا مثال :

كود :

Dim a, b, d
a = 1
b = ""
d = 0
Do Until a = Len(Text1.Text) + 1
b = Mid(Text1.Text, a, 1)
If b = " " Then d = d + 1
b = ""
a = a + 1
DoEvents
Loop
Text2.Text = Split(Text1.Text, " ")(0)

طبعا اولا الاسم يكون بالرقم صفر بين آخر قوسين
الكلمة الوسطى تكون اسم الاب لذا
نكتب كود مشابه ل Text3.Text = Split(Text1.Text, " ")(0) مع تغيير الصفر ب 1 و هكذا تواليك