vb 数组问题，求各位大神搞定，谢谢

Private Sub Command1_Click()

Dim strDataValue() As String
Dim stray() As String
Dim strss As String
Dim ar1() As String
Dim sss As String
Dim i As Integer

strss = "12,45,1,21,443,43,76,76,76,4"

ar1 = Split(strss, ",")

For i = 0 To UBound(ar1)
sss = ar1(i)

stray(i) = sss

strDataValue(i, 11) = stray(i)

Next i

End Sub

...要达到什么效果呢。。。