[عبدالله الصافي]

اخواني الكرام وجدت عندي الكود علي الجهاز فقررت ارفعه للأستفادة لباقي الأعضاء

كود :

Dim MyText() As String
Private Sub Command1_Click()
On Error Resume Next
MyText() = Split(Text1.Text, " ")
For i = 0 To Val(MyText(Index))
MsgBox MyText(i)
Next
End Sub