[Top GreaT]

حلك صحيح اخي الصافي بإستخدام الدالة Split
ولكن يوجد خطأ في كتابه الكود
عدل الكود الى هذا

كود :

[align=left]
Dim MyText() As String
MyText() = Split(Text1.Text, " ")
For i = 0 To UBound(MyText)
MsgBox MyText(i)
Next
[/align]

بالتوفيق