字符串数组有关问题

字符串数组问题
我这边样把一个字符串进行分割，
Dim   str   As   String           'str中的值是这样的:1,2,3,4,5,6
Dim   strings()   As   String

strings()   =   Split(str,   ", ")   '分段读也字符中的数据。
                Text1.Text   =   strings(0)
                Text2.Text   =   strings(1)
                Text3.Text   =   strings(2)
                Text4.Text   =   strings(3)
                Text5.Text   =   strings(4)
                Text6.Text   =   strings(5)
                Text7.Text   =   strings(6)
前面几句没有问题，只是在Text7.Text   =   strings(6)出现了问题，因为没有对strings(6)进行赋值，我用   strings(6)   =   " "   来判断也不行，有没有哪位高手知道这个strings(6)怎么进行判断？

------解决方案--------------------
你数组上标最大值是5，不可能为6啊
如果你非要给text7赋值的话可以这样
Dim str As String 'str中的值是这样的:1,2,3,4,5,6
Dim strings() As String

strings() = Split(str, ", ") '分段读也字符中的数据。
Text1.Text = strings(0)
Text2.Text = strings(1)
Text3.Text = strings(2)
Text4.Text = strings(3)
Text5.Text = strings(4)
Text6.Text = strings(5)
if ubound(strings)=6 then
Text7.Text = strings(6)
else
text7.text= "数组上标超出界限 "
end if