ریختن آرایه در تکس باکس

[IMANAZADI]

با سلام خدمت دوستان عزیز

سوال بعدی اینکه روی فرمم چند تا تکس باکس دارم
میخواستم اطلاعات یک رشته رو با تابع splitجدا کنم و در یک آرایه بریزم بعد هر آرایه رو در تکس باکس جدا یی بنویسم

حالا اینکه چطوری میشه تکس باکس ها رو بصورت آرایه تعریف کنم و مقدار آرایه رو درون آن بریزم چون کد زیر اررور میده


dim a
a=split("aa-rr-dd-gg-ff-ee","-")
for i=1 to ubound(a)
text(i).text=a(i)
next i


آیا میشه با تابع eval ]چنین کاری کرد

ممنون میشم

[bitasoft.ir]

سلام
برای اسپیلیت ببینین این مورد کار می کنه؟



Sub SplitValue()
Dim avarSplit As Variant
Dim intIndex As Integer
avarSplit = Split(Range("A1").Value, ",")
For intIndex = LBound(avarSplit) To UBound(avarSplit)
MsgBox "Item " & intIndex & " is " & avarSplit(intIndex) & _
" which is " & Len(avarSplit(intIndex)) & " characters long", vbInformation
Next
End Sub