Ошибочка вышла при работе с матрицами - VB

Private Sub Command1_Click()
Dim A(1 To 100, 1 To 100), X(1 To 100), Y(1 To 100), Z(1 To 100), max  As Double
Dim i, j, n As Integer
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = Log(Factorial(i)) + 0.5 * j / i
Picture2.Print Format(A(i, j), "#0.00"),
Next j
Picture2.Print '
Next i
For i = 1 To n
      max = A(i, 1)
      For j = 1 To n
             If max < A(i, j) Then max = A(i, j)
      Next j
      Y(i) = max
Next i
For j = 1 To n
      max = A(1, j)
      For i = 1 To n
             If max < A(i, j) Then max = A(i, j)
      Next i
      Z(i) = max
Next j
For i = 1 To n
      X(i) = Y(i) / Z(i)
      Picture4.Print Format(X(i), "#0.00")
Next i
End Sub
Function Factorial(n)
  Factorial = 1
  For i = 2 To n
    Factorial = Factorial * i
  Next i
End Function