جداسازی متن

[hamedspartacus]

سلام به اساتید . من یه متن دارم مثل salam khubi kojai میخوام متن های بین آنها space دارند جدا جدا نوشته بشن مثل text1= salam text2= khubi text3= chetori

دوستان لطف میکنن راهنمایی کنن؟؟؟؟؟

[vbhamed]

سلام
Dim s$
s = "salam khubi kojai"

Dim words() As String, i%

words = Split(s, " ")

For i = 0 To UBound(words)
MsgBox words(i)
Next