Visual Basic - Ayuda con código de Cholesky

Private Sub Command1_Click()

n = Text1.Text

    If n > 1 Then

    Text1.SetFocus

    Mela1.Rows = n

    Mela1.Cols = n

    Else

    Mela1.Rows = 0

        If n <= 0 Then

        MsgBox ("Orden debe ser mayor a 2")

        End If

    End If

End Sub

Private Sub Command2_Click()

Dim k As Single

Dim A() As Double

    ReDim A(1 To n, 1 To n)

For i = 1 To n

    For j = 1 To n

    A(i, j) = Val(Mela1.TextMatrix(i - 1, j - 1))

    Next

Next

For k = 1 To n

    For i = 1 To k - 1

        suma = 0

            For j = 1 To i - 1

                suma = suma + A(i, j) * A(k, j)

            Next

        A(k, i) = (A(k, i) - suma) / A(i, i)

    Next

    suma = 0

        For j = 1 To k - 1

            suma = suma + A(k, j)

        Next

    A(k, k) = Sqr(A(k, k) - suma)

    Next

    Xi = A(k, k)

    For i = 1 To n

        ZR.Rows = n

        ZR.Cols = n

        ZR.TextMatrix(i - 1, 1) = Xi

    Next

End Sub

Dim A() As Double

ReDim A(1 To n, 1 To n)

For i = 1 To n

For j = 1 To n

A(i, j) = Val(Mela1.TextMatrix(i - 1, j - 1))

Next

Next