نحوه خواندن يك عبارت از جمله تا رسيدن به space

[RamezanBeik]

سلام
چي جوري ميشه از يك رشته يك عبارت را تا رسيدن به space خواند و در متغييري ريخت.



Z45 89/7/2 10:22:30 65-C45 89/7/2 10:22:30


در اطلاعات بالا اولين داده تا رسيدن به Space خوانده در متغييري ريخته ميشود و.... تا رسيدن به - و اطلاعات دوم را هم به همين ترتيب خوانده شود تا الي آخر.
در صورت امكان راهنمايي ونمونه كدي را عنايت نماييد.

با تشكر رمضان بيك

[Babak.Hassanpour]

سلام
با استفاده از تابع split



Private Sub Form_Load()
Dim i() As String
i = Split("Z45 89/7/2 10:22:30 65-C45 89/7/2 10:22:30", " ")
For j = 0 To UBound(i)

MsgBox i(j)
Next j
End Sub