二维字符数组赋值

Option Base 1
Dim A(2, 100）As Integer     ‘定义有一个二维整形数组
Private Sub Cmd_Click()
     Dim I, J As Integer
     Dim B(1 To 2, 1 To 100) As String
         B(1) = Split(Txt, ",")                ’给字符数组赋值
         B(2) = Split(Text, ",")
         For I = 1 To 2                        ‘把字符中的值给整形变量
             For J = 1 To 10
                A(I, J) = Val(B(I, J))
             Next J
给位帮我看一下，这个怎么就不对了，从提示错误“维数错误”，谢谢大家了~~~