vba выдаёт ошибку for without next, в чём причина?

вот листинг программы
Sub zadacha()
Dim i, j As Integer
Dim a(), b(), c() As Integer
ReDim a(1 To 3, 1 To 3), b(1 To 3, 1 To 3)
For i = 1 To 3
For j = 1 To 3
i = Val(InputBox(""))
j = Val(InputBox(""))
ReDim c(i, j)
c(i, j) = a(i, j) - b(i, j)
MsgBox (c)
End Sub